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ABSTRACT 


This thesis represents one aspect of an exploration of 
the integration of unformatted data types, such as image, 
sound and signal, with more conventional formatted types in a 
Single database. The focus of this thesis is the 
implementation of a prototype of a database employing a 
relational model that incorporates both formatted and 
unformatted data types. Initial research was limited to 
integration of image data. The prototype provides storage 
and retrieval capabilities, as well as a modest query- 


handling capability. 
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I. INTRODUCTION 


A. BACKGROUND 

This thesis represents one portion of the research being 
conducted on a larger scope, the purpose of which is to 
explore the integration of unformatted data types, such as 
image, sound and signal, with more conventional formatted 
types in a single database. A constraint placed on the 
project by the sponsor, Naval Ocean Systems Center (NOSC), 
i.e., to demonstrate within one year a capability to fulfill 
this purpose sufficient to warrant continued research, 
affected key implementation decisions and created the need 
for the work that forms the material for this thesis. 

To narrow the scope, initial research was limited to 
integration of a single unformatted data type, namely image. 
Examination of the integration of sound data has subsequently 
been initiated and is the subject of a related thesis by LCDR 
G. Sawyer (Sawyer, 1988). Also due to the time constraint, 
it was necessary to utilize existing technology in the 
implementation effort, another constraint in itself, which 
dictated many subsequent design decisions, as discussed 
below. 

The focus of this thesis is the implementation of a 
prototype of a database that incorporates both formatted and 
unformatted data types. It provides storage and retrieval 
capabilities, as well as a modest query-handling capability. 


1 


B. THE ENVIRONMENT 

Selection of the hardware and support software were very 
pragmatic decisions, driven primarily by on-hand 
availability. Thus, the system resides on a Sun 3 
workstation, the chosen operating system is Sun 0S, similar 
to Berkeley UNIX 4.3, the programming language of choice is C 
for interfacing to Relational Technology's  INGRES/SQL 
(version 5.0) database management system, and the Sun 
Microsystems, Inc. workstation and Pixrect facilities provide 
the interface for image capture and display. Since each of 
these tools were already available in-house, this environment 
offered the additional advantage that many, if not aller 
them were already familiar to project participants, further 
expediting the development effort. 

Environment notwithstanding, every effort has been made 
to keep the prototype implementation independent with an eye 
to "future portability. At present, for instance, the 
environment described above, though capable of integrating 
sound data, does not provide support for input and output of 
sound, so an IBM/MS-DOS alternative is being explored. This 
environment still utilizes C and INGRES, so software 
developed for the prototype can be ported directly. It ae 
hoped that the prototype can be kept free of implementation 
specifics so that it can be adapted to that, or any other 


selected, environment. 


C. SELECTION OF THE RELATIONAL MODEL 

The relational model was selected primarily because the 
database issues have already been dealt with and it is widely 
understood. This enabled the project participants to 
concentrate on the multimedia aspects of the problem. 

The relational model was not the only viable model to 
choose from. An important alternative was an object-oriented 
database management system (DBMS). The hallmarks of the 
objected-oriented model, namely encapsulation, inheritance 
and polymorphism, make such a model particularly adaptable to 
use for multimedia data. These features obviate the 
necessity for a homogeneous record structure, which is very 
hard to derive for unformatted data but is required for 
effective implementation of a model such as the relational 
one. (Enbody, 1988, pp. 15-19) 

Unfortunately, developments in the construction of an 
object-oriented DBMS are not yet stable, nor is there a 
commercially available fully functional object-oriented 
database system. Nonetheless, the object-oriented model 
seems a desirable one for multimedia applications, and the 
ability to convert to the object-oriented model in the future 


was a specific goal of this prototype. 


II. MULTIMEDIA DATA IN THE RELATIONAL MODEL 


A. METHODS OF REPRESENTATION 
Having selected the relational model, there were two 
primary alternatives to consider for its implementation 
(Tang, 1980, p. 159). 
1. Use of a Special Relation 
The first would be to implement a special relation in 
which each tuple stands for an entity external to the system. 
This approach offers the advantage that operations can be 
applied to such tuples that can not be applied to normal 
tuples, such as "display" in the case of an image. However, 
it offers some thorny problems which more than offset this 
benefit, such as that of how to implement a join of tuples 
where some of them have image attributes and others have 
sound attributes, or similarly how to implement a projection. 
For example, assume an image relation with attributes 
day and hour. If you were to project on hour, thereby 
eliminating duplicates and in effect collapsing tuples with 
the same value into a single tuple, which image does the 
resulting tuple stand for? All of them? One of them? Any 
of them? Rather than attach an arbitrary meaning to such a 
result to resolve such ambiguity, the straight-forward answer 
would be to disallow projection altogether, but this is 


obviously not a desirable solution. 


2. Use of a Special Attribute 


The second alternative, adopted For this 
implementation, it to introduce a special attribute to 
represent an external entity such as an image. The 
projection problems are eliminated. However, a join or a 


selection based on a comparison of values introduces the 
question Of establishing the properties of 


equality/inequality of instances of the new type. 


B. USE OF A USER-DEFINED ABSTRACT DATA TYPE 

The accepted response to this question is to create an 
abstract data type (ADT) with its own set of operations to 
access occurrences of the ADT. This implementation occurs at 
a low level. At higher (user) levels, implementation 
dependence on the details of how an occurrence of the ADT is 
stored and maintained is avoided, because such details are 
handled within the ADT. This solution requires a definition 
of the functions required to manipulate an occurrence of the 
ADT. (Ong et al, 1984, p. 2) 

Unfortunately, there is no stable, commercially available 
system that allows for ADT definition. POSTGRES, an INGRES 
successor, provides the ability to define new ADT's, however, 
it is not yet on the market. When such a capability is made 
available, the implementation of the multimedia database 
using the relational model most likely will be simplified. 
In the absence of such a capability, the integration of an 


ADT of type image will be provided by introducing an 


additional layer on top of INGRES that accesses both an 
INGRES DBMS and standard files in order to process queris 


See Figure 1. (Meyer-Wegener, 1988, p. 18) 


DBMS interface 





standard picture 
DBS manager 


structured 
data 





Figure 1. Architecture of the Proton ve 


III. IMAGE ABSTRACT DATA TYPE 


In the context of the above discussion, an IMAGE ADT will 
be useful for manipulating an image. The operations of the 
ADT will be used to insert or access IMAGE occurrences in the 


database. 


A. DATA STRUCTURE 

In general terms, there are two methods in which a user 
might want to access a database. Operating in an interactive 
mode, the user might enter a query at the keyboard and expect 
an immediate response on the output device, eg., a CRT. 
Alternatively, by employing a computer program (subsequently 
referred to as the "program mode"), the program will issue a 
query to obtain data or to insert data into the database, in 
which case displaying results is not expected or required. 

The inherent difference between these two modes is 
whether or not a response will have to be displayed. pnis 
feature becomes most important in a multimedia application. 
Consider a request that returns an occurrence of the IMAGE 
type. In an interactive mode, the user will probably expect 
to see a visual display of the image itself. However, in the 
program mode, the technical aspects of image display do not 
have to be considered; it is sufficient to return the 
information that is used to construct the image. This 


difference must be considered in defining the operations of 


the ADT, since some operations may be appropriate for one 


mode but not for the other. 


B. OPERATIONS 

The "abstract" in "abstract data type" comes from the 
fact that the user knows what data he can manipulate with the 
structure and what he has to do to access an occurrence 
the structure, but he has no knowledge of how the data as 
maintained internal to the system. This is one source of 
hardware independence of a system employing ADT's. 

In order to maintain this division between the what and 
the how, the user is allowed to access occurrences of the ADT 
only through a set of carefully pre-defined operations. The 
user knows what data he must provide to the function that 
implements the operation, and the type of value that the 


function returns. 


e EXTERNAL FUNCTIONS 

In the case of the IMAGE ADT, there are 16 operations 
available to the user for manipulating an IMAGE occurrence. 
These are available to the user in the form of what will be 
termed "external functions" as summarized in Table 1. Note 
that the external function name is all in upper case. 

Note also that there are two functionss 
IMAGE FROM PIXRECT and CONSTRUCT IMAGE, which may be employed 
to obtain a new IMAGE value. There is a significant 


difference between them. 


TABLE 1. 


Operation 
CONSTRUCT IMAGE 


IMAGE FROM PIXRECT 
PIXRECT 

HEIGHT 

WIDTH 

DEPTH 

ENCODING 

COLORMAP LENGTH 
COLORMAP ENTRY SIZE 
COLORMAP 
PIXELMATRIX 

WINDOW 

ADD DESCRIPTION 
REPLACE DESCRIPTION 
DESCRIPTION LENGTH 
DESCRIPTION 


SHOWS 


EXTERNAL FUNCTIONS 


Inputs 
width, height, 
depth, encoding, 
colormap length, 
entry length, 
colormap, 
pixelmatrix 
pixrect, colormap 
IMAGE 
IMAGE 
IMAGE 
IMAGE 
IMAGE 
IMAGE 
IMAGE 
IMAGE 
IMAGE 
IMAGE, x, y, qx, dy 
IMAGE, description 
IMAGE, description 
IMAGE 
IMAGE 


IMAGE, pattern 


Result Type 
IMAGE 


IMAGE 
pixrect 
integer 
integer 
integer 
integer 
integer 
integer 
colormap 
pixelmatrix 
IMAGE 
IMAGE 
IMAGE 
integer 
char 


boolean 


The first, IMAGE FROM PIXRECT, is environment specific 
that it expects as input a pixrect a data format known only 
to the Sun Microsystems Pixrect facilities. In the 
structure, all of the descriptive information required for 
the system to construct an image precedes the pixelmatrix 
that comprises the remainder of the pixrect structure. This 
is, in effect, the short-cut method of obtaining an IMAGE. 

The alternative operation, CONSTRUCT_IMAGE, is intended 
to be environment independent. Instead of a pixrect, it 
expects as inputs each of the separate pieces of information 
that are provided by a pixrect header (height, width, depth, 
encoding, "ete. and utilizes them, together with the 
pixelmatrix and colormap provided by the user, to construct 
an IMAGE. Of course, when employing this operation, the 
responsibility falls on the user to provide the correct 
information, as the ADT has no way of verifying correctness 
of most features of the input. 

It will be helpful to examine some sample statements that 
demonstrate how a user might incorporate the ADT operations 
into an SQL statement. The first inserts a new image into a 
relation. Consider a table defined as follows: 


EXEC SQL CREATE TABLE sample table (image id integer, 
image pict IMAGE). 


TO enter an image value into the table, the following 
statement might be used. (A colon preceding a term signals 


to INGRES that this is a host variable.) 
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EXEC SQL INSERT INTO sample table 
(Gmage id, image Pict) 
VALUES(:curr id num, 
IMAGE FROM PIXRECT(sample pixrect, 
Sampoemcelormap)); 

The next statement selects all images that meet a specified 
Selection criterion. This statement employs the SHOWS 
external function, which accepts an image attribute anda 
character string, and returns TRUE or FALSE, depending on 
whether or not the string is found anywhere in the 
description value for the associated image. 

EAEC SQL SELECT image id, 

PIXREC (image pict) 
COLORMAP( image pict) 
INTO sample ships, :PEI,. :cm 
FROM sample table 
WHERE SHOWS(image pict,"ship"); 
The last example represents an update to an existing database 
value. 
EXEC SQL UPDATE sample table 
SET image pict = 
IMAGE FROM PIXRECT(new pixrect,new colormap) 
pEensgsHOWSIImage pict,'CVN-71"); 

The library of ADT operators can be dynamic, growing or 
shrinking as a requirement for a new capability is identified 
or an existing capability is determined to be unnecessary. 
This characteristic is particularly valuable during the 
design phase, and can be expected to be utilized most in the 
prototype, while gaining skill in operation identification 
and definition. 


The reader should be able to see, upon a casual review of 


the list of operations, that not all of them would be 
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appropriate in an interactive environment and that operations 
of particular value in the interactive mode are absent from 
the list. For instance, an interactive user probably would 
not be interested in viewing the results of  PIXELMATRIX or 
COLORMAP, for the resulting stream of data would have no 
meaning when displayed on the screen. On the other hand, it 
is easy to suppose that an interactive user might desire a 
DISPLAY operation for an instance of the IMAGE ADT, but such 
an operation would be useless in the program mode. 

For the remainder of this discussion, the focus will be 
on the program mode only. This further narrows the scope of 
the project, supporting the desire for rapid development and 


early demonstration. 


D. INTERNAL REPRESENTATION 

In application, a user, generally an applications 
programmer, will manipulate instances of the IMAGE ADT 1) by 
declaring an attribute to be of type IMAGE, 2) by employing a 
function call that is expected to return a value of type 
IMAGE, or 3) by making a function call with a parameter of 
type IMAGE. 

The IMAGE type is undefined to standard INGRES SQL. This 
is where the additional layer that resides one level above 
INGRES in the software hierarchy becomes necessary. It is 
implemented in the form ofa preprocessor, translating the 
external representation of such a structure into a pair of 
declarations that are recognized by standard INGRESS 
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namely a filename that represents the actual storage location 
of the image data and a text description of the contents of 
the image. 


Names in INGRES SQL are sequences of no more than 12 


characters. With the exception of table names, all 12 
characters must form a unique combination. (Table names 
require only that the first nine do so.) The following name 


translation convention is employed. All characters from the 
user-supplied image name up to a maximum of ten are 
preserved. To identify the associated filename, an extension 
EN is attached to this string (or substring), and to 
Mem ey the description, an extension of " d" is added. For 
instance, if the user codes 
EXEC SQL CREATE TABLE my table 
(ship name ¢20, 
ship image IMAGE); 
the preprocessor will translate this to 
EXEC SOL CREATE TABLE my table 
(ship name c20, 
ship image f vchar(FILE NAME LENGTH), 
ship image d vchar(DESCR LENGTH)); 
where FILE NAME LENGTH and DESGPSESNGIH | åre preprocessor 
defined constants. It will be the user's responsibility to 


ensure that the image attribute names contain unique 


combinations in the first ten characters. 


E. INTERNAL FUNCTIONS 
Corresponding to each of the external functions is an 


“internal function" with å similar name. The name is derived 
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by converting the name of the external function to lower case 
and prepending the letters "IS." The inputs are the same, 


unless of type IMAGE, where the image name is translated to a 


filename/description pair as described above. Unlike the 
external functions, the internal functions are used more in 
the sense of a procedure than a function. Thus, the return 


value becomes an output parameter of the same type, or a pair 
of parameters in the case of IMAGE type. The return value is 
reserved for error code passing. See Table 2. 

Following through with the same examples utilized for 
external function usage in Section C above, the statements 
below show how the same information can be obtained utilizing 
the internal functions. First is the example of a database 
insertion. 

EXEC SUL BEGIN DECLARE SECTION; 

char ISfnl[FILE NAME LENGTH + 1]; 
char ISsdescr] | BESCRETENCTEE ZI 

EXEC SOL END DECLARE SECTION; 


ISimage from pixrect(sample pixrect, &sample colormap, 
ISfni, ISdeserr, 


EXEC SỌL INSERT INTO sample table 
(image id, Mage tp cti image spe u 
VALUES (:curr id num, :ISEmnlI) Isdescul 


Next is an example of a select query. 


EXEC SQL BEGIN DECLARE SECTION; 
char ISfn2[FILE NAME LENGTH + 1]; 
char ISdescr2[DESCR LENGTH + 1]; 
int Samo = 

EXEC SQL END DECLARE SECTION; 
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TABLE 2. 


Operation 


mj eonstruct image 


ISimage from pixrect 
ISpixrect 

ISheight 

ISwidth 

ISdepth 

ISencoding 
IScolormap_length 
mcolormap entry size 
IScolormap 
ISpixelmatrix 


ISwindow 


ISadd description 


replace description 


Isdescription_length 
ISdescription 


ISshows 


pixrect, 


INTERNAL FUNCTIONS 


Inputs 
width, height, 
depth, encoding, 


colormap length, 


entry length, 


colormap, 
pixelmatrix 


image f,image d 
image f,image d 
image f,image d 
imagen imaged 
image f,image d 
image f,image d 
image f,image d 
image f,image d 
image f image d, 


image f,image d, 


av e dc dy 


image f,image d, 
description 


image f,image d 
description 


image f,image d 


image f,image d 


image f,image d, 
pattern 
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colormap 


Outputs 


image f,image d 


image f,image d 
pixrect 

integer 

integer 

integer 

integer 

integer 

integer 
colormap 
pixelmatrix 


image f,image d 


image f,image d 


image f,image d 


integer 
char 


boolean 


EXEC SOL DECLARE CURSOR ISc one As 
SELECT image pict _f, image pict d 
FROM sample table; 

EXEGESODCOOPEN ESC one; 


EXEC SQL WHENEVER NOT FOUND GOTO IScloseISc one; 


Beni, : ) 
{ 
EXEC SQL FEICHTISegorne 
INTO :ISfn2, "Tsdeser?. 
ISshows(ISfn2,ISdescr2,"ship",&ISvar3); 
if (ISvar3) 
{ 
ISpixrect(Isfn2 TSdescer2F8p2 
IScolormap{ISfn2, ISdeser2z gene 
) 
) 


Eee One, 
EXEC SOL CLOSE = BSc sone. 
EXEC SQL WHENEVER NOT FOUND «old value»; 


And finally, the example of a database update. 


EXEC SOL BEGIN DECLARE SECTION; 
char ISfn4 [FILE NAME LENGTH -* 1]; 
char ISdescr4[DESCR LENGTH + 1]; 
int Isvar5; u 

EXEC SOL END «DECLARE SECTION: 


EXEC SOL DECLARE CURSOR ISc one AS 
SEBECT rmage pict f, imager i tad 
FROM sample table; 
EXEC SQL OPEN ISC one; 
EXEC SOL WHENEVER NOT FOUND GOTO IScloserscpone, 
Por) 
( 
EXEC SQL FETCH ISc one 
INTO :ISfn4, :ISdescr4&; 
IS shows(IS£n4,ISdescr4,"CVN-71",&1ISvar5); 


1f (ISvars5) 
{ 
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momage from pixrect 
(new pixrect,&new Colormap,ISin4, 


ISdescr4); 


EXEC SQL UPDATE sample table 
SET image pict f - ISfn4, 
image pict d = ISdescr4 
WHERE CURRENT OF ISc one; 
) 
) 


Ee Llosersc one: 
EXEC SQL CLOSE ISC one; 
EXEC SQL WHENEVER NOT FOUND «oJld value»; 
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IV. THE PREPROØGE SØR 


A. PURPOSE 

The preprocessor implements an SQL-based query language 
that incorporates the ADT IMAGE. The resulting query 
language is referred to as IMAGE SQL (ISQL). It provides to 
the user all of the functionality ofa DBMS with integrated 
image management facilities by establishing a link between a 
standard relational DBMS, which manages structured data, and 
a picture manager, which stores images in standard files. 
These two pieces of software are otherwise unable to 


communicate or cooperate. 


B: INPUTS AND OUTPUTS 

The input to the preprocessor is a file with a "55M 
extension containing a C program which may contain statements 
in either or both INGRES Embedded SQL (ESQL) and ISQL. The 
preprocessor also requires a file named "function.isql" 
containing information necessary for the translation of an 
ISQL statement into its  ESQL equivalent. The use of this 
file is discussed below. The output from the preprocessor is 
a file of the same name but bearing a ".sc" extension which 
contains a C program from which all ISQL statements have been 
removed by substituting appropriate ESQL declarations and 


statements. This file is in the proper format for submission 
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to the ESQL preprocessor, preparatory to compilation and 


minking. 


C. FUNCTION TRANSLATION TABLE 

The function translation table is built from information 
contained in the function.isql file mentioned above. The 
correctness of the input is crucial to the correctness of the 
preprocessor output. Fortunately, this file should change 
only rarely, such as when a new operator is introduced or 
(unlikely) an existing one removed. 

The contents of the input file consist of a single number 
on the first line, which represents the number of lines to 
follow, i.e., the number of operators that will be 
represented in the table. This number is presently 16. Each 
subsequent line contains information about a single operator, 
including the external function name; the internal function 
name; for each input parameter, the parameter type, the 
parameter declaration, and an "i" to convey that it is an 
input parameter; and for the return type, again the type and 
the declaration, but this time an "o" to identify it as an 
output parameter. 

The type identifies the parameter as being of one of only 
five possible parameter types, i.e., pixrect, colormap, 
integer, character string or IMAGE. 


The declaration is a string that represents a proper C 


declaration for that type in that particular internal 
mmetion. A given parameter type, eg. IMAGE, may have 
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different declarations from one internal function to another, 
so this is an essential element of the table. At present 
only the declarations for the return types, where new 
declarations must be created, are required. However, for 
uniformity, the declarations of all input parameters are 
included in the table as well and must be present in 
function.isql. 

For example, the entry for PIXRECT is as follows: 

PIXRECT, ISpixrect, image,char *,1,pixrect støler 
pixrect ** o 
PIXRECT is the external function name,  ISpixrect is the 
corresponding internal function name, the internal function 
returns a value of type image, the only input parameter has a 
declaration of char * and its only output has a declaration 
Gf struct plixrect Tx. 

"i" and "o" are used to represent the input/output 
character of the parameter vice some numeric scheme, because 
each token is read into the table as a character string. 
This avoids any need for converting back to numeric and 
preserves the uniformity of the implementation of the table. 

Token delimiters are a comma or a new line character 
(An), so all other characters are incorporated into tokens. 
This is necessary to support the inclusion of the 
declaration, which may contain spaces. 

Once loaded, the table takes the form of an array of 
lists, one item in the array for each of the 16 operators. 
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Each item is a list of string tokens containing the data 


described above. This format facilitates comparison with 
string tokens parsed from the ".isc" file to be preprocessed, 
and output of declarations to the ".sc" file; no conversions 


are required. 

A function called load function table(<number of 
entries>) is executed at the beginning of each preprocessor 
execution. This loads the contents of function.isql into the 
array structure. The table has a global definition and is 
available to all portions of the preprocessor. The number of 
entries (eg. 16) is passed back to the calling program and 
must be explicitly passed to any function needing that 
information, such as for scanning the table to determine if 
an expression represents an ISQL function call. 

A second program is available primarily for debugging use 
in case changes to the function.isql file produce anomalous 
preprocessor results. This function is 
display function table(<number of entries>), and it does just 
that. The number of entries, generally the value returned 
from load function table, is the only input required. The 


result is sent to the standard output device, i.e., the CRT. 


D. PROCESSING METHOD 

The preprocessor reads in the input file one line at a 
time and examines it to see if it signals the start of an 
M statement. If it does not, the line is written directly 
out to the output file with no changes. ME does contain 
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the beginning of an ISQL statement, it must next determine 
what type of statement it is, 1.e., insert, update, select, 
etc., and special processing for that particular type of 
statement begins. 

Some statements having no variable parts, such as a BEGIN 
or END statement, require no special handling, and are simply 
written to the output file just as a non-ISQL statement. 
Most, however, require processing to convert one or more 
parts of the parsed statement from ISQL to ESQL. This 
special processing varies greatly from one statement to 
another, but the following general steps apply to all. 

First, the incoming statement is parsed and the variable 
portions, such as column name lists, expression lists, table 
names,  etc., are placed in a tree structure for later 
retrieval. The preprocessor then examines any portion of the 
tree which may contain an attribute of type IMAGE or an 
external function call which returns a value of type IMAGE. 
For example, a list of expressions is a tree part that would 
be a candidate for examination. 

If an attribute of type IMAGE is encountered, it is 
replaced in the expression list by its filename/file 
description pair by adding the f and d extensions tomm 
attribute name. In the case of a statement such as an 
INSERT, where column names are provided to identify the 


location in which the new data is to be placed, the column 
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name must be modified in the same manner as the expression, 
producing two column names in lieu of one. 

If an external function call is encountered, it is 
replaced in the list of expressions by a variable name(s) 
representing the input parameter(s) or output parameter(s) of 
the corresponding internal function as appropriate. See the 
SELECT and INSERT examples respectively in Chapter III, 
Section E above. To accomplish this, it must first output an 
ESQL declaration section to uniquely identify the output 
parameter(s) of the internal function, and it must then 
output a call to that internal function to load values into 
those variables. 

At this point in preprocessing, the information has been 
collected to translate the ISOL statement into ESOL 
equivalent, and the ESQL statement is written to the output 
file. 

Each of these steps is executed repetitively until the 
entire input file is read, and the output file has been 
constructed, replacing all ISQL statements by their ESQL 


equivalents. 


E. PROCESSING UTILITIES 

In addition to the internal functions included in Table 
penere are two utility functions. One is ISget names 
(<image>,<filename>,<description>) which passes back the 
filename and description identifier pair for the input image 
identifier. 
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The second utility function is generate filename() which 
generates a unique filename from the system date and time for 
an image created by ISimage from pixrect SE 
ISconstruct image. This name takes the form 

yyjjj.hhmmss 
where the first two digits identify the year, the next three 
digits represent the julian day, and the remaining six digits 
are the two-digit hour, minute and second, respectively, 


corresponding to the moment at which the file was created. 


Er ERROR HANDLING 

Error handling has been held to a minimum. No effort is 
made to intercept errors which will be evaluated by the 
INGRES preprocessor or the C compiler. An effort has been 
made to apprise the user, whenever possible, of the 
consequences of an error that impacts the proper execution of 
the ISOL preprocessor. 

If a file without the correct ".isc" extension 
submitted or if no file name is supplied when the 
preprocessor is called, the user is notified immediately on 
the standard output device (CRT) of the error or omission, 
and the preprocessor is terminated. 

Each of the internal functions returns a code upon normal 
or abnormal termination. Each of these codes is in the range 
200 to 299, a group of numbers not already utilized by 
INGRES. All of these codes are defined in a file called 
"erporsth.* This file also includes codes for messages 
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intercepted from the pixrect library, encoded in the range 
300 to 399. This information should be part of a user's 
manual so that the user can interpret the result of an 


operation on an instance of the IMAGE ADT. 
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V.  CONCLUSION 


At present, all of the internal functions have been 
coded. Code for these functions is provided in Appendix A. 
Testing has been restricted due to the slow process of 
obtaining the SOL version of INGRES necessary to establish 
the final link for database image display on the Sun system. 
All components are now in place and rigorous testing is on- 
going. 

The state of the preprocessor, the main driving loop for 
which is supplied in Appendix B, is such that it can load the 
function table (Appendix C is the pertinent code and Appendix 
Dis a sample of the function table input) and it can 
iteratively find each occurrence of an EXEC SQL statement. 
At this time, only the INSERT statement can be fully 
processed. The code required to process such a statement can 
be found “in Appendix E. All other possible ESQL statements 
are stubbed to return a message. Appendix F represents a 
sample input file and Appendix G is the corresponding output 
file following execution of the preprocessor. A collection 
of utility functions utilized throughout the preprocessor is 
assembled in Appendix H and error code definitions are found 
in Appendix I. 

There remain 20 types of statements to implement in the 
preprocessor to provide full INGRES ESQL functionality for 
the IMAGE ADT. Several of these types represent a subset of 
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statement formats in themselves, eg., there are several forms 
for å SELECT statement. The code unique to the processing of 
the INSERT statement alone consists of more than 750 lines, 
so there is stiJl an enormous amount of programming required 
to attain full implementation. 

Following completion of the preprocessor, the logical 
follow-on is to build a large, practical application that 
employs it. From such a test, it can be determined if the 
set of ADT operators that have been provided are appropriate, 
and functions can be deleted or added as necessary to achieve 
mee ADT utility. 

When fully implemented, this preprocessor can be utilized 
by other higher level applications for processing of 
databases that incorporate images. These applications will, 
in most instances, provide yet another layer of abstraction 
between the database and the end user targeted at providing a 
"user-friendly" environment for the user seeking information 
from the database. 

The result of related research (Sawyer, 1988) will 
provide a similar preprocessing capability for incorporation 
of sound data. A goal following completion of the IMAGE 
preprocessor will be to incorporate image and sound data in 
the same database. phaesuPbrImate goal is Aevelopment of å 
Preprocessor that is fully extensible for all data types. 

The work already completed has demonstrated the ability 


to implement an unformatted data type, in this case IMAGE 
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data, as an ADT. The information content of the ADT has been 
successfully abstracted from the physical aspects of its 
storage, hiding such implementation specifics as the fact 
that the images themselves are stored in separate, standard 
files or the fact that an image attribute is interpreted for 
internal use into a filename and a description name. This 
provides the user with the illusion of a relational database 
that incorporates the IMAGE data type. The implementation 
specifics of the ADT can be modified to accommodate changes 
in the database environment with no modification to the user 
side of the database interface, an important feature of the 


use of ADT's. 
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APPENDIX A 


CODE FOR INTERNAL FUNCTIONS 


EE DTK KKK KK KN OE & / 


Hinclude <stdio.h> 

#include <sys/param.h> 
#include <sys/types.h> 
#include <time.h> 

#include <pixrect/pixrect_hs.h> 
Hinclude "defines.h" 


= 1 wv 
#include "errors.h 
MK KERNER | 


ISimage from pixrect (input_pixrect, colormap, image_filename, image_descr) 
/* 

**** produce a rasterfile "image. filename" from a pixrect and a colormap 

*/ 


struct pixrect *input pixrect; /* input */ 


colormap_t *colormap; /* input */ 
char *image filename, /* output */ 
*image_descr; /* output */ 

{ 
FILE *new file: 

y 

**** obtain a unique file name 

/ 


generate_filename (image_filename); 


if ((new_file = fopen(image_filename,"w")) == NULL) 
retum FOPEN_ERR; 


pr 
***% create a rasterfile from the pixrect and colormap 
4 
if ((pr_dump (input_pixrect, new_file, colormap, RT_STANDARD, 0)) == PIX_ERR) 
{ 


fclose (new. file); 
return PR. DUMP ERR; 
) 


fclose(new file); 
return ERROR FREE: 
) 
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fol oa oa ala lol ler lerke ORO E OR OR ORO ROO ORO CORO OR CORO ORO */ 


generate_filename (filename) 
char *filename; /* output */ 


75 
**** produce a unique filename composed of 2-digit year, julian date, 
hour, minute, and second 


i 
{ 


char image_filename[13], 
pathname[MAXPATHLEN], 
SD; 

struct tm *t; 

time t current time; 

int 1; 


current üme - time NULLE): 
t= gmtime(&current time); 


sprintf(image filename, "7%02d4%03d.%02d%024%02d", 
t->tm_year, t->tm_yday, t->um_hour, t->tm_min, t->tm_sec); 


image filename(12]2 ^O"; 

getwd (pathname); 

if (strlen (pathname) <= (FILE NAME LENGTH - 14)) 
(1 = 0; 1 < strlen (pathname); i++) 


*filename++ = pathname][i]; 
*filename++ = '/}; 


| 


p 2 image. filename; 


while (*filename++ = *p++) 


*filename = NO”; 


retum; 
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[REAR RSS IG ICG keler k ak akak k ak ak 2k ak */ 


ISpixrect(filename, file descr, new pixrect) 


"En 
**** extract a pixrect from rasterfile "filename" 


E, 


char *filename, /* input */ 
*file descr; /* input, not used */ 
struct pixrect **new. pixrect; /* output */ 


( 
FILE *input; 


if (input = fopen(filename,"r")) == NULL) 
return FOPEN ERR; 


if ((*new_pixrect = pr load (input, NULL)) == NULL) 
{ 
fclose (input); 
return PR LOAD ERR; 
fclose(input); 


return ERROR, FREE; 
) 


3l 


åka ao ROROROR OK IR IO okei kok OK */ 


ISheight (filename, file_descr, height) 


7» 
* *** extract the image height from rasterfile "filename" 
Jn 


char *filename, /* input */ 
*file descr; /* input, not used */ 
int *height; /* output */ 


( 
FILE *input; 
struct rasterfile rh; 


if ((input = fopen(filename,"r")) == NULL) 
return FOPEN ERR; 


if ((pr. load, header(input,&rh)) 22 PIX. ERR) 


( 
fclose (input); 
return PR LOAD HEADER ERR; 
) 


fclose(input); 
*height = rh.ras height; 
retum ERROR FREE. 


fe ak ak ak ak 3% ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak a ak ak ak ak ak ak ak ak ak ake ak ak ak ak ak ak ak ak ak afe ak ak ak ak ak ak afe afe ak ak ak a ak ae ae afe ak ak aic aie aic oc ac aic oe e kc X a ad er 


ISwidth (filename, file descr, width) 


Je 


**** extract the image width from rasterfile "filename" 


p 


char *filename, /* input */ 
*file descr; /* input, not used */ 
int *width; /* output */ 


( 
FILE *input; 
struct rasterfile rh; 


if (input 2 fopen(filename,"r")) == NULL) 
return FOPEN ERR; 


if ((pr load header(input,&rh)) == PIX ERR) 


[ 
fclose (input); 
retum PR LOAD HEADER ERR; 
) 


fclose(input); 

*width z rh.ras width; 

return ERROR, FREE; 
) 
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ISdepth (filename, file, descr, depth) 


i 
**** extract the image depth from rasterfile "filename" 


iei 


char *filename, /* input */ 
*file descr; /* input, not used */ 
int *depth; /* output */ 


( 
FILE *input; 
struct rasterfile rh; 


if (input = fopen(filename,"r")) == NULL) 
return FOPEN ERR; 


if ((pr load header(input,&rh)) = PIX ERR) 
( 
fclose (input); 
return PR LOAD HEADER ERR; 
| 


fclose(input); 

*depth = rh.ras depth; 

return ERROR, FREE; 
| 


fr a / 


ISencoding (filename, file_descr, encoding) 


Hg 
**** extract the encoding type from rasterfile "filename" 


E 


char *filename, /* input */ 
*file descr; /* input, not used */ 
int *encoding; /* output */ 


{ 
FILE *input; 
struct rasterfile rh; 


e 


if (input = fopen(filename,"r")) == NULL) 
retum FOPEN_ERR; 


if ((pr_load_header(input,&rh)) == PIX_ERR) 


{ 
fclose (input); 
return PR LOAD HEADER ERR; 
| 


fclose(input); 


/* 
**** check the different combinations of rh.ras type and rh.ras maptype 
y 
switch (rh.ras_type) 
( 
case RT STANDARD: 
switch (rh.ras_maptype) 
[ 
case RMT. NONE: 
*encoding = NO COLORMAP GREYNESS; 
break; 
case RMT EQUAL RGB: 
*encoding = COLORMAP RGB; 
break; 
default: 
return INVALID MAP TYPE ERR; 
) 
break; 
case RT GREYNESS: 
switch (rh.ras maptype) 
[ 
case RMT NONE: 


*encoding 2 NO COLORMAP GREYNESS; 
break: 
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case RMT RAW: 
*encoding = COLORMAP GREYNESS; 
break; 

default: 
return INVALID MAP TYPE ERR; 


| 


break; 
case RT. RGB: 
switch (rh.ras maptype) 
case RMT NONE: 
*encoding = NO_COLORMAPERGE, 
break; 
case RMT_RAW: 
*encoding = COLORMAP_RGB; 
break; 
default: 
return INVALID MAP TYPE ERR: 
| 
break; 
case RT. IHS: 
switch (rh.ras maptype) 
( 
case RMT NONE: 
*encoding = NO COLORMAP IHS; 
break; 
case RMT RAW: 
*encoding = COLORMAP IHS; 
break; 
default: 
return INVALID MAP TYPE ERR; 
j 
break; 
default: 


retum INVALID RASTER TYPE ERR; 
| 


return ERROR FREE; 
j 
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/* daa ao aka III K a BK AK k ak a ak K k ak aK aK K ak akak k I K 


IScolormap_length (filename, file_descr, map_length) 


E 
**** extract the map length from the rasterfile for "filename" 
*/ 


char *filename, /* input */ 
*file_descr; /* input, not used */ 
int *map_length; /* output */ 


( 
FILE *input; 
struct rasterfile rh; 


if ((input = fopen(filename,"r")) == NULL) 
retum FOPEN_ERR; 


if ((pr_load_header(input,&rh)) == PIX_ERR) 


[ 
fclose (input); 
return PR LOAD HEADER ERR; 
) 


fclose(input); 


switch (rh.ras maptype) 
( 
case RMT_NONE: 
*map length = 0; 
break; 
case RMT EQUAL RGB: 
/* this implies that the colormap entry length is 3 bytes */ 
*map length = rh.ras maplength / 3; 
break; 
case RMT RAW: 
/* there is no way of determining the original entry length. 
Therefore, the length in bytes is returned, and a warning 
Is signalled to the calling program */ 
*map length z rh.ras maplength; 
return MAPLENGTH IN BYTE WARNING; 
default 
return INVALID MAP TYPE ERR; 
) 


return ERROR FREE; 
) 
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1 Ikk ak k ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak k ak ak ak k ak a a a a a ak ak akak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak a å 


IScolormap entry. size (filename, file, descr, size) 


i 
**** extract the map entry size from rasterfile "filename" 


7 


char *filename, /* input */ 
*file_descr; /* input, not used */ 
int *size; /* output */ 


( 
FILE *input; 
struct rasterfile rh; 


D 
**** check to make sure that file exists and is loadable 
x 
if ((input = fopen(fiılename,"r")) == NULL) 
retum FOPEN_ERR; 


if ((pr_load_header(input,&rh)) = PIX. ERR) 


( 
fclose (input); 
return PR LOAD HEADER ERR; 
| 


fclose(input); 
/* 
**** a fixed constant for SUN is returned 
n 
switch (rh.ras type) 
( 
case RT OLD: 
case RT STANDARD: 
*size = 3; /* 24 bits/3 bytes for Sun colormaps */ 


break; 
default: 
return NO COLORMAP ENTRY SIZE ERR; 
) 
return ERROR FREE: 
) 


Tag ak ak ak ac ac akc ac ac aic ac ac aic aie ac aic ac oic aic aic akc aic aic aic aic aic aic ac aic aic ac ac 3c aic aic aic aic ac ac ac ac ac aic ac ac aic ac ac aic ac ac xc ac ac aic ac ac oc ac xc ac o oc oc aic oc dc oc oo ae oc oe Xo å 


IScolormap (filename, file descr, cm, ptr) 


i 
***% extract the colormap from rasterfile "filename" 


*/ 


char *filename, /* input */ 
*file_descr; /* input, not used */ 
colormap. t *cm, ptr; /* output */ 


[ 
FILE *input; 
struct rasterfile rh; 


if ((input = fopen(filename,"r")) == NULL) 
return FOPEN ERR; 


if ((pr load header(input,&rh)) = PIX ERR) 


( 
fclose (input); 
return PR LOAD HEADER ERR; 
) 


switch (rh.ras maptype) 
( 
case RMT_NONE: 
cm_ptr->type = RMT_NONE; 

cm_ptr->length = 0; 

cm_ptr->map[0} = NULL; 

cm ptr->map[1] = NULL; 

cm_ptr->map[2] = NULL; 

break; 

case RMT EQUAL. RGB: 
if (pr load colormap (input, &rh, cm, pu) 22 PIX ERR) 
( 
fclose (input); 
retum PR LOAD COLORMAP ERR; 
) 
break; 
case RMT RAW: 

if (pr load colormap (input, &rh, cm, ptr) == PIX ERR) 

( 

fclose (input); 

retum PR LOAD COLORMAP ERR; 
) 

/* in case of RMT RAW the function places the address of the 
colormap in cm ptr->map[0]. The other two pointers are not 
not NULL, but contain nonsense that can cause segmentation 
fault. Therefore they are set to NULL: */ 


>> 


cm, ptr-»mapl 


1] 
cm, ptr-»map[2] 


= NULE 
= KULD 


break; 
default: 
fclose (input); 
return INVALID_MAP_TYPE_ERR; 
) 
fclose(input); 


return ERROR, FREE; 
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"bd ak 3k 3k Hr ad al aja aic ade ae al ad al ae al ade da a ad ac ac kc aic af ad a a ORG Og xc alc kc oc ac aic ac kc ac kc kc kc aic kc alc alc kc aic aic aic ac ac aic c ad a a dad a a a a Fk */ 


ISpixelmatrix (filename, file_descr, matrixptr) 


"bd 


***% extract the pixel matrix for the image from rasterfile "filename" 


b 


char *filename, /* input */ 
*file descr; /* input, not used */ 
unsigned char *matrixptr; /* output */ 


( 
FILE *input; 
struct rasterfile rh; 
struct pixrect *pr; 
struct mpr. data *data ptr; 
long int length, 
A 
p 
unsigned char *source, 
*malloc (); 
int out_bytes_per_line, 
in_bytes_per_line; 


if ((input = fopen(filename,'r')) == NULL) 
return FOPEN ERR; 


if (pr load header (input, &rh) == PIX ERR) 
[ 
fclose (input); 
return PR LOAD HEADER ERR; 
) 


/* skip over colormap, if any */ 
if (rh.ras maptype != RMT NONE) 
if (pr load colormap (input, &rh, NULL) == PIX ERR) 
( 
fclose (input); 
retum PR LOAD COLORMAP ERR; 
) 


if (rh.ras type == RT STANDARD) 
[ 
if ((pr 2 pr. load std image (input, &rh, NULL)) = NULL) 
( 
fclose (input); 
return PR LOAD ERR; 
) 


data ptr z (struct mpr. data *) pr->pr data; 
source = (unsigned char *) data pu-»md image; 


4] 


else 
/* if rh.ras type is not RT STANDARD, pr load image calls a 
decompression algorithm. It must be located in a file whose 


name is derived from the value of rh.ras type. Since we don't 
use those decompression techniques, we must load the pixels 


ourselves. */ 


source = malloc (rh.ras length); 
if (source == NULL) 
{ 
fclose (input); 
return MALLOC ERR; 


) 


if (fread (source, sizeof (char), rh.ras_length, input) 
« rh.ras length) 

( 

fclose (input); 

retun FREAD_ERR; 


) 
) 


fclose(input); 


/* Now source points to the pixelmatrix in the pixrect format, 1.e. 
lines are a multiple of 16 bits. To comply with arbitrary pixel- 
matrix formats, the trailing byte (if exisung) is stripped off. */ 


je 

*"** retrieve rhe pixrect data 
ón 
out_bytes_per_line = (rh.ras_width * rh.ras_depth - 1)/8 + 1; 

in bytes per line = ((rh.ras width * rh.ras_depth - 1)/16+ 1) * 2; 


if (out. bytes per line 2-2 in bytes per line) 
for(i=0;i<rh.ras length; i++) 
*matrixpu++ = *source++; 
else 
/* out_bytes_per_line == in_bytes_per_line - 1 */ 
for (i = 0; i < rh.ras_height; i++) 


( 
for G = 0; j < out_bytes_per_line; j++) 


* matrixptr++ = *source++; 
source++; /* skip filler byte at end */ 


| 


return ERROR, FREE; 
) 


"hd ak ak ak ak ak ak ak ak ak ak k okc oic ac ac okc ac ac ac akc aic ak ok okc okc acc oc oc ac oc oc 2c kc okc oc ac oc ac okc oc akc oc oc ac oc oc oc ok oc oc oc akc oc akc oc okc akc oc oc oc oc oc oc oc oc oc oca oC oc oc k ak */ 
ISwindow (infilename, infile descr, x, y, dx, dy, outfilename, outfile descr) 


/* 
**** extract a sub-image from an existing image 


b 


char *infilename, — /* input */ 
*infile descr, /* input, not used */ 
*outfilename, / output */ 
*outfile descr; /* output */ 

int x, 
y, 
dx, 
dy;  /*input */ 


( 
FILE *input, 
* output; 
struct rasterfile rh; 
colormap t cm; 
struct pixrect *input pr, 
*output pr; 
struct mpr data *data ptr; 
unsigned char *matrix_ptr, 
*target, 
*subimage, 
*malloc 0; 
int out bytes per line, 
1, 
i 
/* The first pixel of the image in the northwest corner has the 
“coordinates” (0, 0). */ 
if(x<Olly<Olldx <1 Ildy<1) 
{ 


) 


if ((input = fopen(infilename,"r")) = NULL) 
( 


return INVALID WINDOW PARAMS; 


return FOPEN ERR; 
) 


/* reading the image is done almost in the same way as in 
ISpixelmatrix.c. */ 


if ((pr load header (input, &rh)) — PIX ERR) 
( 


fclose (input); 
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return PR LOAD HEADER ERR; 
| 


/* The last pixel of the image in the southeast corner has the 
"coordinates" (rh.ras width - 1, rh.ras height - 1). */ 
if (x »2 rh.ras width ll y >= rh.ras height) 
( 
fclose (input); 
return NO. WINDOW OVERLAP,; 
) 


switch (rh.ras_maptype) 
( 
case RMT_NONE: 
cm.type = RMT_NONE; 

cm.length = 0; 

cm.map[0] = NULL; 

cm.map[1] = NULL; 

cm.map[2] = NULL; 

break; 

case RMT_EQUAL_ RGB: 

if (pr_load_colormap (input, &rh, &cm) == PIX_ERR) 
{ 
fclose (input); 
retum PR LOAD COLORMAP ERR; 

) 
break; 
case RMT RAW: 

if (pr load colormap (input, &rh, &cm) == PIX ERR) 
( 

fclose (input); 
return PR LOAD COLORMAP ERR; 
) 
/* in case of RMT RAW the function places the address of the 
colormap in cm_ptr->map[0]. The other two pointers are not 
not NULL, but contain nonsense that can cause segmentation 
fault. Therefore they are set to NULL: */ 
cm.mapl | > NU: 
cm.map(2] = NULL; 
break; 
default 

fclose (input); 

return INVALID MAP TYPE ERR; 
) 


if (rh.ras_type == RT STANDARD) 
( 
if ((input pr = pr load std image (input, &rh, NULL)) == NULL) 
( 
fclose (input); 
return PR LOAD ERR; 
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) 
else 
f* if rh.ras type is not RT. STANDARD, pr. load, image calls a 
decompression algorithm. It must be located in a file whose 
name is derived from the value of rh.ras type. Since we don't 
use those decompression techniques, we must load the pixels 
ourselves. */ 


if ((input pr = mem create (rh.ras width, rh.ras height, 
rh.ras_depth)) == NULL) 
( 


fclose (input); 
retun MEM_CREATE_ERR; 


) 


data_ptr = (struct mpr_data *) input_pr->pr_data; 
matrix_ptr = (unsigned char *) data_ptr->md_image; 


if (fread (matrix_ptr, sizeof (char), rh.ras_length, input) 
<rh.ras length) 
( 
fclose (input); 
retun FREAD_ERR; 
) 
) 


fclose(input); 
generate filename (outfilename); 


if ((output = fopen (outfilename, "w")) == NULL) 
( 


| 


return FOPEN ERR; 


/* pr. region builds a secondary pixrect with its own struct 
pixrect and its own struct mpr_data, but referencing the 
same pixelmatrix (pointer md image in mpr data). The offset 
information in the mpr data structure tells procedures like 
pr. dump which part of the pixelmatrix must be used. 
If dx and dy extend beyond the image in input pr, pr. region 
will reduce them. The real dx and dy values will then be stored 
in Outpur_pr->pr_size.x and output pr->pr size.y.*/ 


if ((output, pr 2 pr. region (input pr, x, y, dx, dy)) == NULL) 
( 


return PR REGION ERR; 
) 


if (rh.ras type == RT STANDARD && rh.ras depth = 8) 
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else 


/* pr dump will set rh.ras type to RT. STANDARD anyway, so any 
other value would simply be lost. pr. region works with 
a depth other than 8, but pr dump would not write such 
a secondary pixrect. It would not return an error, either. */ 


if ((pr. dump (output pr, output, &cm, RT STANDARD, 0)) !2 0) 
( 
fclose (output); 
return PR_DUMP_ERR; 
) 


if (rh.ras depth != 8) 
( 
/* this implies actually copying the pixelmatrix on a 
bit-by-bit basıs! We postpone it. */ 
fclose (output); 
return WINDOW WRONG DEPTH ERR; 
) 


/* the following sequence is a simplified version of 
ISconstruct, image.c, see the comments there. */ 


rh.ras width = output pr->pr Size.X; 

rh.ras height = output pr->pr Size.y; 

/* they can be different from the original dx and dy, if dx and dy 
were 100 large. */ 


out bytes per line = ((rh.ras. width - 1)/2 4 1) * 2; 
/* this only works because rh.ras depth is 8! */ 
rh.ras length = rh.ras height * out bytes per line; 


/* all the other components of rh remain as the are, and so 
does the colormap in cm. */ 


if (pr. dump. header (output, &rh, &cm) == PIX ERR) 
( 


fclose (output); 
retun PR_DUMP_HEADER_ERR; 
) 


data_pu = (struct mpr_data *) output_pr->pr_data; 
/* copy the subimage to different storage area: */ 
target = malloc (rh.ras_length); 

subimage = target; /* save base address */ 


for (12 0; i« rh.ras height; i++) 


| 
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matrix ptu - (unsigned char *) data pu-»md image 
+ (y + 1) * data pir->md linebytes /* skip lines */ 
+ Xx; 
for (G= 0;j < rh.ras width; j++) 
*target++ = *matrix_ptr++; 
if (rh.ras_width == (out_bytes_per_line - 1)) 
*target++ = 0’; 


) 


if (fwrite (subimage, sizeof (unsigned char), rh.ras length, 
output) 
« rh.ras length) 


fclose (output); 
free (subimage); 
return FWRITE ERR; 
) 
) 


fclose (output); 

free (subimage); 

pr. destroy (output, pr); 
pr. destroy (input, pr); 
*outfile descr 2 W’; 


return ERROR FREE; 
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ISadd, description(infilename, indescr, newdescr, outfilename, outdescr) 


yt 
**** add to the descnpuon of an image 
i 
char *infilename, — /* input */ 
*indescr, /* input */ 
*newdescr, /* input */ 
*outfilename, /* output */ 
* outdescr; /* output */ 
( 
int i = 0; 


while (*outfilename++ = *infilename++) 


, 


while (*outdescr++ = *indescr++) 
i++; 


outdescr--; /* reposition on NO" */ 


while ((*outdescr++ = *newdescr++) && i < MAX DESCR) 
i++; 


if (i == MAX DESCR & & *outdeser != ^O") 
( 


*outdescr = WM”; 


| 


return DESCR TOO LONG ERR; 


return ERROR FREE: 
} 
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/* HK KKK KK HK KKK KK HK KKK KK KK KK KK KK KK KKK KK KK KK KK KK KK KKK KK KKK KKK KKK KK KKK KK KEK */ 


ISreplace_descripuon(infilename, indescr, newdescr, outfilename, outdescr) 


1 

**** replace the description of an image 

E 

char *infilename, /* input */ 

*indescr, /* input */ 
*newdescr, /* input */ 
*outfilename, — /* output */ 
*outdescr; /* output */ 


{ 


while (*outfilename++ = *infilename++) 


3 


while (*outdescr++ = *newdescr++) 


return ERROR_FREE; 
} 
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[hy Ik ak ak ak e e dc dc ac c c aic ic aic aic ac ac kc ac ac ac c dc adc aic c aic ac ac aic aic aic ac ac ac ac aic aje ake aje ape aje ae aje ake aje aje aic aic aic aie aic ade aic ac aic ac ac oc ac aic aic ac ac aic aie aic ac ac ac oc oc xe xk 2) 


ISdescnption length (filename, descr, char, count) 


/* 
**** count the characters in the description of an image 
*/ 

char *filename; /* input, not used */ 

char *descr; /* input */ 

unsigned int *char_count; /* output */ 

( 

unsigned int i=0; 


while (*descr++ != W’) 
i++; 


*char count =1; 


return ERROR FREE: 
) 
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/* ak k e A e a A a A oc ok o Oj oc oc c OC OK e A A A A RA RR A FF FF FF KH FF e e e a e HK FF e a a A A A a a AR A A A ae AR a a a */ 


ISdescription (filename, old_descr_name, new_descr_name) 


fr 
**** copy the description to the output 


er 


char *filename, /* input, not used */ 
*old_descr_name, /* input */ 
*new_descr_name; /* output */ 


( 


while (*new descr name++ = *old descr name++) 


return ERROR FREE; 
) 
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1 Mc ac ac k ak ak ak kc kc a a c Oc ae a a a a a a a a a a a k ak k a a KH FE k k ke a a a a RK KK KK a a aa ar od a ae a af TH a a a a Ma a a a a a eu, 


ISshows (filename, descr, pattern, match) 


[= 
**** determine whether or not string "pattern" is contained 
**** within string "descr"; returns 1 if true, O if false 


E 


char *filename, /* input, not used */ 
“descr - /*input”/ 
*pattern; /* input */ 

int *match; — /* output */ 


( 
int 1, 
j, 
found; 


if (*pattern == "W') 

found = 1; /* NULL string always is contained */ 
eise 

found = 0; /* initialize found for loop use */ 


i= 0; 
while (*(descr+i) '= W” £4 'found) 
( 
if (*(descr+i) == *pattern) 
( 
ed, 
while (*(descr+i+j) == *(pattern+j) && *(pattern+j) != ^0") 
j++; 
if (*(pattern+j) = 0’) /* pattern matched */ 
found = 1; 
else 
if (*(descr+i+j) == 0’) /* pattern longer than 
remaining descr */ 
1=1+ J; /* terminate outer loop */ 
else /* continue search starting with next letter in descr */ 
i++; 
) 
else 
1++; 
) 


*match = found; 
retun ERROR_FREE; 
) 


/* ade ae ade ad ic c c dc bc c dc jc bc cc ic bc c c c c c c ic c alc c c c c hc c c hc c c ic c jc c c c lc c jc c c ic Dc ic a ad ai ar a c c a ai ai ar a a a A a a a a air ar a k el 


ISconstruct image (width, height, depth, encoding, colormap length, 
colormap entry length, colormap, pixelmatrix, 
image_filename,image_descr) 


y" 


**** construct an image located in file "filename" from the 
**** discrete parts of the pixrect and the colormap 
E 


int width, 
height, 
depth, 
encoding, 
colormap length, 
colormap entry length; 
unsigned char *pixelmatrix, 
*colormap; 
char *image filename, 
*image descr; 


( 
int in bytes per line, 
out bytes per line; 
int 1, 
j 
unsigned char *target; 
struct pixrect *image; 
struct rasterfile rh; 
struct mpr data *data pur; 
colormap t cm; 
unsigned char red[256], 
green[256], 
blue[256]; 
FILE *new file; 


if (width <= 0) 
return NO WIDTH ERR; 


if (height <= 0) 
return NO HEIGHT ERR; 


if (depth <= 0) 
retum NO DEPTH ERR; 


if (encoding < 0 Il encoding > 6) 
return INVALID ENCODING ERR; 


Te 


**** assemble the rasterfile header 


55 


7 


rh.ras magic = RAS MAGIC; 
rh.ras width = width; 

rh.ras height = height; 

rh.ras depth = depth; 


out bytes per line = ((width * depth - 1)/ 16+ 1) * 2; 

/* lines must be rounded up to multiples of 16-bit words */ 
rh.ras length - height * out bytes per line; 

/* what if we have more than 32768 bytes? big problem */ 


switch (encoding) 


( 
case NO COLORMAP GREYNESS: 


rh.ras type = RT STANDARD; 
rh.ras maptype = RMT NONE; 
rh.ras maplength = 0; 

cm.type = RMT NONE; 
cm.length = 0; 

break; 


case NO_COLORMAP_RGB: 


rh.ras type =RT RGB; 

rh.ras maptype = RMT NONE; 
rh.ras_maplength = 0; 

cm.type = RMT_NONE; 
cm.length = 0; 

break; 


case NO COLORMAP IHS: 


rh.ras_type = RT_IHS; 

rh.ras maptype = RMT_NONE; 
rh.ras_maplength = 0; 

cm.type = RMT_NONE; 
cm.length = 0; 

break; 


case COLORMAP_GREYNESS: 


rh.ras_type = RT_GREYNESS; 

rh.ras maptype - RMT RAW; 

rh.ras maplength = colormap entry length * colormap length; 
cm.type - RMT RAW; 

cm.length = rh.ras maplength; 

cm.map[0] = colormap; 

cm.map[1] = NULL; 

cm.map[2] = NULL; 

break; 


case COLORMAP_RGB: 


rh.ras maplength = colormap entry length * colormap length; 
if (colormap entry length 2-2 3 && colormap. length «- 256) 
( 
rh.ras type = RT STANDARD; 
rh.ras maptype = RMT EQUAL RGB; 
for (1 = 0; i < colormap length; 1++) 
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( 
red[i] = *colormap++; 
green[i] = *colormap++; 
blue[i] = *colormap++; 
) 

cm.type = RMT EQUAL RGB; 

cm.length = colormap length; 

/* it took hours to find this. pr. dump header verifies that 
rh.ras maplength is three times cm.length, if cm.type = 
RMT. EQUAL RGB. In contrast to that cm.length must be equal 
to rh.ras maplength in case of RMT RAW. */ 

cm.map[0] z red; 

cm.map[1] 2 green; 

cm.map[2] = blue; 


) 


else 
( 
rh.ras type = RT RGB; 
rh.ras maptype = RMT RAW, 
cm.type = RMT RAW, 
cm.length = rh.ras maplength; 
cm.map[0] = colormap; 
cm.map[1] = NULL; 
cm.map[2] = NULL; 
) 
break; 


case COLORMAP IHS: 
rh.ras type = RT IHS; 
rh.ras maptype = RMT RAW, 
rh.ras maplength 2 colormap entry length * colormap length; 
cm.type  RMT RAW; 
cm.length = rh.ras_maplength; 
cm.map[0] = colormap; 
cm.map[1] 2 NULL; 
cm.map[2] = NULL; 
break; 


a 


**** open a new file with a unique file name 
E, 


generate filename(image. filename); 


if ((new file = fopen(image filename,"w")) == NULL) 
return FOPEN ERR; 


lig 
**** dump the header information and the colormap into the file 
a 
/* if rh.ras_maptype contains RMT_RAW, pr dump header will only use 
cm.map[0]. This pointer must point to a storage area that contains 
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the colormap in the length specified in rh.maplength and cm.length */ 


if (pr dump. header (new. file, &rh, &cm) == PIX ERR) 
( 
fclose (new. file); 
return PR. DUMP HEADER ERR; 
) 


f* 
**** create a memory pixrect 
*/ 
if (image = mem_create (width, height, depth)) == NULL) 
( 
fclose (new. file); 
retum MEM CREATE. ERR; 
) 


yx 

**** initialize the memory pixrect 

T 
data_ptr = (struct mpr_data *) image->pr_data; 
target = (unsigned char *) data_ptr->md_image; 


in bytes per line = (width * depth - 1)/8+ 1; 


if (in bytes per line == out bytes per line) 

/* no need to copy, pixelmatrix is in proper format */ 

data ptr-»md, image z (short *) pixelmatrix; 
else 

/* in bytes per line == (out bytes per line - 1) */ 

for (i = 0; 1 < height; 1++) 

{ 
for G = 0; j < in_bytes_per_line; j++) 
*(target+(i*out_bytes_per_line)+j) = *pixelmatrix++; 
*(target+(1*out bytes per line)+in bytes per line) = 


(unsigned char) 0; 
) 
Je 
**** dump the image into the file 
*/ 


if (rh.ras_type == RT_STANDARD) 
( 
if (pr. dump. image (image, new. file, &rh) 22 PIX. ERR) 
( 


fclose (new, file); 
return PR. DUMP IMAGE ERR; 
) 
) 


else 
/* if rh.ras type is not RT STANDARD, pr dump image will call a 
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compaction program that must be available in some file. 
Since we don't have that and don't want compaction either, 
we must write the image without the help of pr dump. image */ 


if (fwrite ((unsigned char *) data ptr->md image, 
sizeof (unsigned char), rh.ras length, 
new file) 
<rh.ras length) 


fclose (new. file); 
return FWRITE ERR; 


) 
*jmage descr 2 0’; 


fclose(new. file); 
return ERROR FREE; 
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APPENDIX B 


MAIN PROGRAM CODE 


tidefine TABLE DATA FILE "function.isql" 


/* length of the two representation attributes filename and description */ 
&define FILE NAME LENGTH 64 
Hdefine MAX DESCR 500 


/* values for encoding */ 

#define COLORMAP_RGB 1 

#define COLORMAP_IHS 2 

#define COLORMAP_GREYNESS 3 
#define NO_COLORMAP_RGB 4 
#define NO_COLORMAP_IHS 5 

#define NO_COLORMAP_GREYNESS 6 


/* additional values for the ras_type field in the rasterfile header */ 
#define RT_GREYNESS 101 

#define RT_RGB 102 

#define RT_IHS 103 


#define MAX_LINE 256 

#define MAX_TOKEN 256 
#define MAX TABLENAME 12 
Hdefine MAX FUNC NAME 25 
Hdefine MAX SQL NAME 10 
Hdefine MAX PARAMS 15 
Hdefine ADD INDENT 4 


8define TRUE 1 
#define FALSE 0 


#define SPACE ’ ’ 

#define TAB W' 

#define NEW_LINE “mn” 
#define LEFT_PAREN *( 
#define RIGHT_PAREN ’)’ 
#define COMMA ’,’ 

#define SEMI_COLON ’;’ 
#define COLON ’:’ 

#define UNDERSCORE ' ' 
#define TERMINAL ‘0’ 
8define PERIOD '.' 

define LEFT. BRACKET '(' 
8idefine RIGHT BRACKET ']' 
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Hdefine VALUES CLAUSE 2 
#define SUBQUERY 3 


#define ABORT_OP 20 
#define BEGIN_OP 21 
#define CLOSE_OP 22 
#define COPY_OP 23 
#define CONNECT_OP 24 
#define CREATE_OP 25 
#define DECLARE_OP 26 
#define DELETE_OP 27 
#define DISCONNECT_OP 28 
#define DROP_OP 29 
#define END_OP 30 

#define FETCH_OP 31 
#define HELD_OP 32 
#define INCLUDE_OP 33 
#define INSERT_OP 34 
#define MODIFY_OP 35 
#define OPEN_OP 36 
#define PRINT_OP 37 
#define RELOCATE_OP 38 
#define SAVE_OP 39 
#define SAVEPOINT_OP 40 
#define SELECT_OP 4] 
#define SET_OP 42 

#define UPDATE_OP 43 
#define WHENEVER_OP 44 


ME re NNN KAKEN EE k 


r 
The table of functions, their translations, and their parameters is con- 
structed as an array of nodes as defined here. 


E 


struct func tab entry 


[ 
char *func name, 
*ISfunc name; 
struct param *in param list, 
*return type; 


n 
struct func, tab, entry **func tab; /* global declaration of function table */ 


EN LL LLL oet et ete o RIEGO RO oro eorr ooo oro ore ee eoo NS 
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ie 
Structure for constructing a list of parameters. 


x 


struct param 


{ 
char *param type, 
*param decl; 
struct param *next; 


); 


fe Meade ade a ade ad ae ae ad ae ad a ae a a ae ae e a a a a ad ad a a a a a a ad Of Of a a e a a 2 age age a a a a a a a e a a a a a a a a a a a a a a a a a a a a a a i 


is 
Structure for saving the variable syntactic parts of an insert 
statement 


D 


struct insert. node, struct 


| 


char *tablename; 
struct column *col list; 
struct expr *expr list; 


}: 
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T 
Structure for constructing a list of column names. 


7 


struct column 


| 


char *column_name; 
suuct column *next; 


js 


Td ak ak ak a ae ae ae e e a ad ae ee e a e a ae A a e A a a a a e a a a a ar a a a a a a a a a a a A a a a a a a ad a A A a ay 


fr 


Structure for constructing a list of expressions. 


ef 


struct expr 


{ 
char *expression; 
struct expr *next; 


); 


få RR RRA RARA A 
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få 
E 


struct ISfunc. struct 


{ 
char *name; 
struct ISparam *param list; 


} 


e ade de a ale e ae e e ae ae e ae ae ae e e ae ae e e e ae e ic ae c ae e a ae e e ce e e e ae ae e ae e ae e c be e e ae ae a a ae e ae ae a ale c be i e ae c e e a a a a X X a ay 


hg 


Structure for constructing a list of IS function parameters. 


*/ 


struct ISparam 


[ 
char *name; 
struct ISparam *next; 


j: 
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fo ee EEE k f 


#include <stdio.h> 
#include <malloc.h> 
#include <string.h> 
#include "errors.h" 
#include "defines.h" 
Hinclude "structures.h" 


fo ee er 
main(argc,argv) /* argv contains name of program to be preprocessed */ 


i 
Preprocessor main program. Reads in name of ISQL file to be pre- 
processed, verifies it, loads function table, and initiates 
convertion of ISQL statements to ESQL equivalents. Input is 
"Asc" file, output is ".sc" file. 

E 


int argc; 
char *argv[]; 


( 

FILE *ınput, 
* output; 

char err. code, 
*operation, 
*argumentl, 
input_filename[MAX_TOKEN + 1], 
input filename ex([MAX TOKEN + 1], 
*output, filename, 
inbuff [MAX LINE + I]; 

int 1, 
) . 
num, entries; 


/* check for presence of filename argument */ 


if (argc!=2) 
( 
printf(“\n\n>>>>> Please enter name of program to be preprocessed.\n\n"); 
exit0; 


) 
/* ensure that filename ends in ".isc" */ 
argument! = argv[ 1]; 


while (((input. filename[i] 2 argumentl1[i]) '* TERMINAL) € 4 
((input_filename[i] = argumentI[i}) '= PERIOD)) 


i++; 
input filename[1] TERMINAL; 


if (argumenti [1] !' PERIOD) 


printf(‘\n\n>>>>> Input filename must have an extension \".isc\"n\n"); 
exit(); 
) 


else 


( 
1++; 
while (input filename ext[j] = argument] [1]) 
( 
i++; 
j++; 
) 
input filename ext[j*1] 2 TERMINAL; 
if (stremp(input filename ext,"isc") != 0) 


printf(\n\n>>>>> Input filename must have an extension \".isc\\n\n"); 
exit(); 


) 


else 
printf (‘\n\n>>>>> Preprocessing file 96s.96SN1" input, filename, input. filename, ext); 


) 
output, filename z strcat(input, filename,".sc"); 
num entries 2 load function table(); 
/* open input file */ 


if (input 2 fopen (argv[1],"r")) 22 NULL) 
return FOPEN ERR; 


/* open output file */ 


if ((output = fopen (output. filename," w")) 22 NULL) 
return FOPEN ERR; 


/* find and evaluate EXEC SQL statements */ 


while (get next sql(input,output,inbuff,&operation)) 
process next sgl(input,output,nbuff,operation,num. entries); 


fclose(input); 
fclose(output); 


printf ("n>>>>> Preprocessor terminated Ann"); 
) 
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&1nclude «stdio.h» 
#include <string.h> 
tinclude "defines.h" 


/* 3k ak kc ak ak ak ak ak ak ak ak ak ak ak re a ak 3k ak 3k 2k ak */ 
get_next_sql(input_file,output_file,inbuff,operation) 


fr 
Reads a line from the input file. If itis an EXEC SQL statement, the line 
is returned to the main program for processing. Otherwise, the line is 
written unchanged to the output file. Called repetitively in while loop 
by main program. 

*/ 


FILE *input_file, 
*output file; 

char inbuff[ MAX LINE + 1], 
**operation; 


| 
char tokenI[MAX_TOKEN + 1], 


token2[MAX TOKEN + I], 
sen code: 
static char token3[MAX_TOKEN + 1], 
token[MAX_TOKEN + 1); 
int i, 
inbuff_ndx; 


while (err code = fgets (inbuff,MAX LINE,nput file)) 


{ 
inbuff_ndx = 0; 


/* skip the white space at the beginning of the line */ 
while ((inbuff[inbuff_ndx] == SPACE) Il 
Gnbuff[inbuff ndx) 22 TAB)) 
inbuff ndx++; 


/* pick off each of the first four tokens for use in determining 
if this is an EXEC SQL statement */ 


get next token(inbuff inbuff ndx,tokenl,&inbuff ndx); 
to upper case(tokenl); 


get next token(inbuffinbuff ndx,token2,&inbuff ndx); 
to. upper case(token2); 


get next token(inbuff,inbuff ndx,token3,&inbuff ndx), 
to upper case(token3); 


get next token(inbuff,inbuff ndx,token4, &inbuff ndx); 
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to upper case(token4); 
if ((srcmp(token1,"EXEC") 22 0) & & (stromp(token2,"SQL") = 0)) 


/* EXEC SQL statement without a label */ 
*operation = token3; 
retum TRUE; 
) 
else if ((stremp(token2,"EXEC") == 0) && (stremp(token3," SQL") 22 0)) 
( 
/* there is a label preceding the EXEC SQL statement */ 
*operation = token4; 
return TRUE; 
) 
else 
/* this is not an EXEC SQL statement, write the line to the 
output file */ 
fputs (inbuff,output file); 
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#include <stdio.h> 
#include "defines.h" 


je Ic HI I I I I II IT I I I I I I I I U I U U U a a A A a a A A A A A a "T 
process next, sql(input,output,inbuff,operation,num entries) 


Je 
Accepts a line of text in inbuff that represents the first (maybe only) 
line of an EXEC SQL statement. The type of statement is identified by 
operation. Uses a switch statement to peform the appropriate pro- 
cessing, reading additional input lines as necessary. Writes appropriate 
corresponding lines of code to output. Called repetitively from main 
program whenever an EXEC SQL statement is encountered. 

*/ 


FIE “input, 
* output; 

char inbuffé MAX LINE - 1], 
* operation; 

int num, entries; 


( 
char outbuff MAX LINE + 1]; 


int 1, 
inbuff ndx, 
outbuff ndx; 


/* Intiualize the output buffer. */ 
for (i=0; isMAX LINE+1; i++) 
outbuff[i] = TERMINAL: 


inbuii ndx = 0; 
outbuff ndx = 0; 


/* all operations evaluated for type ın upper case */ 
to upper case(operation); 


switch(get operauon type(operation)) ( 
case INSERT OP: 
process insert(input,output,inbuff,num, entries); 
break; 
case BEGIN OP: 
case DISCONNECT OP: 
case END OP: 
case INCLUDE OP: 
/* Move the contents of the input buffer to the output 
buffer, up to but not including the terminating 
null character. */ 
while ((outbuff[outbuff ndx] 2 inbuff[inbuff ndx]) !' TERMINAL) 
( 
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inbuff ndx++; 
outbuff ndx++; 
) 
break; 
default: 
printf (“\nWarning: sq! %s statement not checked for \ 
image attributes.\n" operation); 


/* Move the contents of the input buffer to the output 
buffer, up to but not including the terminating 
null character. */ 
while ((outbuff[outbuff_ndx] = inbuff[inbuff ndx]) != TERMINAL) 
( 


inbuff ndx++; 
outbuff ndx++; 


) 
) 


/* Place the terminating null character at the end of the output 
buffer. */ 


outbuff[outbuff_ndx+1] = TERMINAL; 
/* wnte the output buffer to the output file */ 


fputs (outbuff output); 


) 
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APPENDIX C 
CODE FOR PROCESSING FUNCTION TABLE 


#include <stdio.h> 
#include <malloc.h> 
#include <string.h> 
Hinclude "defines.h" 
Hinclude "structures.h" 
#include "errors.h" 


= 3k sk s al a ad ad a cc k lc b ie k bc c c c acc c c i c c c c d c c c dc c c aj a a a a a ae ae a ae a a a a a a a ar a ic c c c c c e c e a a a a a a ae */ 


load_function_table() 


på 
Takes the contents of the data file which contains the information 
needed for translation of an IMAGE function into an ISimage func- 
uon and places it in a table. This table takes the form of a 
list of lists. Called once by main program as preprocessing begins. 


= 
| 


struct func tab entry *curr node; 
struct param *curr in param, 
*next param; 
FILE *input; 
int ent. cnt, 
first in param, 
list. done, 
1: 
char *token, 
*param type, 
*param, decl, 
* param, i or. o, 
buff MAX LINE - 1]; 


if ((input = fopen (TABLE DATA FILE, "r")) == NULL) 
retum FOPEN ERR: 


/* The first item of information, on a line by itself, is the number 
of items (lists) contained in the table. This is captured and used 
to determine the number of lists in the array and as the counter 
boundary for the following "for" loop. The new line character is 
discarded. */ 


fscanf (input, "%d%*c" &ent cnt); 
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/* Create the initial array of empty lists, using the number of entries 
to determine the size. */ 
func. tab = 
(struct func. tab entry **)malloc(sizeof(struct func. tab entry *) * (ent cnt 4 1)); 


for (i20; i«ent, cnt; i++) 


( 
list done = FALSE: 
first in param = TRUE; 


fgets (buff, MAX LINE, input); /* get line of data from file */ 
token = strtok (buff," n"); /* get the first token in the line */ 


if (token == NULL) && (i<(ent_cnt-1))) 
/* number of entries does not match length of file */ 
return FUNC TAB ERR; 
else 
( 
/* create a new node for a function’s data */ 
curt_node = (struct func_tab_entry *) malloc (sizeof(struct func tab entry)); 


/* allocate space for the function name */ 
curr_node->func_name = malloc (strlen(token)+1); 
/* load the function name into the node */ 
strcpy(curr_node->func_name,token); 


/* get the ISfunction name */ 

token = striok(NULL,"\n"); 

/* allocate space for the ISfunction name */ 

curr node->ISfunc name = malloc (strlen(token)+ 1); 
/* load the ISfunction name into the node */ 
strepy(curr node->ISfunc name,token); 


curr node-»in param list 2 NULL; 
curr node-»return type 2 NULL; 


func. tab[i] 2 curr. node; 


while (!list done) 
( 
param, type = striok(NULL,"Nn"); 
if (param type == NULL) /* no more parameters */ 
( 
list_done = TRUE; 
continue; 
| 
param, decl 2 sttok(NULL," Nn"); 
if (param, decl == NULL) /* parameter without i or o */ 
( 
retun PARAM_ERR; 
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) 
param i or o- strtok(NULL,"n"); 
if (param i or o — NULL) /* parameter without i or o */ 
[ 
return PARAM ERR; 


| 


/* allocate space for a parameter node */ 
next, param = (struct param *) malloc (sizeof(struct param)); 


/* allocate space for the parameter type */ 

next param->param type = malloc(strlen(param type)+1); 
/* load the parameter declaration */ 

strepy(next param->param type, param type); 


/* allocate space for the parameter decl */ 

next param->param decl= malloc(strlen(param decl)+1); 
/* load the parameter declaration */ 

strepy(next param->param decl,param decl); 


next param-»next 2 NULL; 


if (srcmp(param, i or 0,"1) == 0) 
( 
/* add an input parameter */ 
if (first, in param) 
( 
first_in_param = FALSE; 
curr node-»in param list = next. param; 
) 
else 
curr in param-»next - next, param; 
curr in param = next, param; 
) 


else if (stremp(param i or 0,"0")==0) 
/* add an output parameter */ 
curr node-»return type - next, param; 
else 
Pero * 
( 
retun PARAM_ERR; 


| 


) /* list done while */ 


) /* else */ 
) /* while */ 


fclose(input); 


return ent cnt 


| 
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#include <stdio.h> 
Hinclude "structures.h" 


display function table(num entnes) 


y 


E 


) 


Utility program for printing contents of function table. Input parameter 
is number of elements in the table array. Not executed as part of 
normal processing. 


int num. entries; 


( 
int 1; 
struct param *next; 


for (120; i«num entries; i*4) 


( 
printf(^nfunction name = %s\n",func_tab[i]->func_name); 
printf("ISfunction name = %s\n" ,func_tab[{i]->ISfunc_name); 


next = func_tab[i]->in_param_list; 
while (next != NULL) 
( 
printf("input param type = %s" ,next->param_type); 
printf(" decl = %sNn",next->param decl); 
next = next->next; 


) 


next = func tab[i)->return type; 
printf("return type = %s",next->param type); 
printf(" decl = %sin" ‚next->param_decl); 


) 
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APPENDIX D 
SAMPLE FUNCTION TABLE INPUT FILE 


16 

IMAGE FROM PIXRECT ISimage from pixrect,pixrect,struct pixrect *,i,colormap, 
colormap t * i,.image,char ‚o 

PIXRECT ‚ISpixrect,image,char *,i,pixrect,struct pixrect **,0 

HEIGHT ISheight,image,char *,1,int,int *,o 

DEPTH,ISdepth,image,char * i,intint *,o 

ENCODING,ISencoding image,char *,i,int,int *,o 
COLORMAP_LENGTH,IScolormap_length,image,char *,i,int,int *,o 
COLORMAP_ENTRY_SIZE,IScolormap_entry_size,image,char *,i,int,int *,0 
COLORMAP IScolormap,image,char *,1,colormap,colormap_t *,o 
PIXELMATRIX,ISpixelmatrix,image,char *,i,char,unsigned char *,o 

WINDOW ISwindow,image,char *,1,int,int,1,1nt,1nt,1,intyint,i,int,int,1,image,char *,o 
ADD DESCRIPTION, ISadd description,image,char *,o,char char *,i : 
REPLACE DESCRIPTION ISreplace description,image,char *,o,char,char *,1 
DESCRIPTION LENGTH ISdescription,image,char * i,int,int *,o 

DESCRIPTION ISdescription,image,char *,i,char,char *,o 
SHOWS,ISshows,image,char *,i,char,char *,1,int int *,0 

CONSTRUCT IMAGE ISconstruct image,int,int,i,intint,i,int,int,i,intint,i,intinti,int,int,i, 
colormap,colormap 1 *,i,char,unsigned char *,1,image,char ,0 
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APPENDIX E 


CODE FOR PROCESSING INSERT STATEMENT 


y* Wk ak c cic afe aic afe a a e a a a ic aic e a a a a a a a a a a a a e a a a a e aic cc aic afe ad a a ar ad a a FF KT U KT TR UK FH TI FH ic aic c c IF be oic ac oc I c X my 


#include <stdio.h> 
#include <malloc.h> 
Hinclude "defines.h" 
Hinclude "errors.h" 
Hinclude "structures.h" 


ib de e ade ad ade e ade a ae ae a a a ad a a ic He Be aic c adc ic a e a ade FT I e e he c dec I I I I N c ade a aic e a a a a ic c aie ac aic aic aic aic aic ic aie aic aic aic ic aie I c oc oc x, 
process insert(input,output,inbuff,num, entries) 


de 
Called by process next, sql each time an EXEC SQL INSERT statement is 


idenufied. 
x 


FILE *input, 
*output; 

char *inbuff; 

int num entries; 


| . 
int 1, 
indent = 0, 
inbuff_ndx = 0, 


collecung_ values = FALSE, 
end_statement = FALSE; 

char token[MAX_TOKEN + 1], 
outbuff[MAX_LINE+1]; 

struct insert node struct *insert node; 


/* create the structure to hold the parsed components of the insert 
statement */ 
insert node=(struct insert node struct *) malloc 
(sizeof(struct insert node. struct)); 


/* skip any white space */ 
while ((inbuff[indent] == SPACE) Il 
(inbuff[indent] = TAB)) 
if (inbufffindent] == SPACE) 
indent++; 
else 
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indent = indent + 4; 


get next, token(inbuff,inbuff ndx,token,&inbuff ndx); 
to upper case(token); 


/* get the table name from the input statement */ 
if(srcmp(token,EXEC") 22 0) /* no label */ 
for (120; i«4; 1) 
get next token(inbuff,inbuff ndx,token,&inbuff ndx); 
else /* lable precedes EXEC SQL */ 
for (1=0; i<5; i++) 
get_next_token(inbuff,inbuff_ndx,token,&inbuff_ndx); 


/* token = tablename */ 


/* initialize the insert structure */ 

insert_node->tablename = (char *) malloc(strlen(token)+1); 
strepy(insert node->tablename,token); 

insert node-»col list = NULL; 

insert node->expr list = NULL; 


/* parse the remainder of the insert statement */ 
while (!end statement) 
( 
switch(inbuff[inbuff ndx])( 
case LEFT PAREN: 
/* determine the type of list (column or expression) 
encountered and initiate appropriate list processing */ 
inbuff ndx++; 
if (collecting values) 
| 
process_expr_list(input,insert_node,inbuff,&inbuff_ndx); 
collecting values = FALSE; 
| 
else 
process, column list (input insert, nodeanbuff,&inbuff ndx); 
break; 
case SEMI. COLON: 
/* end of insert statement encountered */ 
end statement » TRUE; 
break; 
case NEW LINE: 
/* get new line from input file and continue processing */ 
fgets(inbuff, MAX LINE input); 
inbuff_ndx = 0; 
break; 
case COMMA: 
case TAB: 
case SPACE: 
/* skip white space */ 
inbuff ndx++; 
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break; 
default: 
/* encountered beginning of next token */ 
get next token(inbuff,nbuff ndx,token,&inbuff ndx); 
to upper case(token); 
switch(get token type(token))( 
case VALUES. CLAUSE: 
/* found beginning of VALUES clause */ 
collecting values = TRUE; 
break; 
case SUBQUERY: 
/* found subquery, not handled by this version of 
the preprocessor */ 
break; 
default: 
/* unknown part found in insert statement */ 
return INSERT ERR; 
) /* switch on token type */ 
) /* switch on inbuff[inbuff ndx] */ 
) /* while */ 


/* bracket preprocessor output so that C compiler will accept any 
declarations that might be generated in the middle of the function */ 

clear buffer(outbuff); 

outbuff[0] 2 LEFT BRACKET; 

outbuff[1] = NEW LINE; 

fputs(outbuff,output); 


/* convert any ISQL expressions to ESQL */ 
if (insert_node->expr_list != NULL) 
convert_exprs(output,insert_node,num_entries); 


output table name(insert node,indent,output); 


if (insert node->col list ' NULL) 
output columns(insert node,indent,output); 


if (insert node->expr list != NULL) 
output, exprs(insert, node,indent,output); 

/* close bracket of preprocessor output */ 

clear buffer(outbuff); 

outbuff[0] = RIGHT BRACKET: 

fputs(outbuff,output); 


) /* process insert */ 
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process column list(inputinsert, node,inbuff,inbuff ndx) 


å 
Parses the list of columns from the input file and constructs a list 
of column names, part of an insert node structure. Called by 
process, insert zero or one times, depending on absence or presence 
of column list. 


a 


FILE "input; 

struct insert node struct *insert node; 
char *inbuff; 

int *inbuff ndx; 


( 
int buff ndx, 
end list= FALSE, 
first column = TRUE; 
char token[ MAX TOKEN + 1]; 
struct column *next column, 
*curr column; 


buff ndx = *inbuff ndx; 


while (lend list) 
| 
switch(inbuff[buff ndx])( 
case NEW LINE: 
/* may encounter new line in middle of column list; have to 
get another line from input file, then continue processing */ 
fgets(inbuffÁ,;MAX LINE ,input); 


buff ndx =0: 
get next, token(inbuff,buff ndx,token,& buff. ndx); 
break; 


case RIGHT. PAREN: 
/* signals end of column list */ 
end list 2 TRUE; 
buff ndx4—; 
break; 
case COMMA: 
/* separates column names, skip */ 
case TAB: 
case SPACE: 
/* white space, skip */ 
buff_ndx++; 
break; 
default: 
/* beginning of next token */ 
get_next_token(inbuff,buff_ndx,token,& buff_ndx); 
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next column = (struct column *) malloc (sizeof(struct column)); 
next column->column name = malloc (strlen(token) + 1); 
strepy(next column->column name,token); 
next column->next = NULL; 
if (first column) /* create a new list */ 
( 
first_column = FALSE; 
insert_node->col_list = next_column; 
) 
else /* add to existing lıst */ 
curr. column-»next 2 next. column; 
curr. column z next, column; 
) /* switch on inbuff[inbuff_ndx] */ 
) 
*inbuff ndx - buff ndx; 
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process expr list(inputinsert node,inbuff,inbuff ndx) 


/* 
Parses the list of expressions that follow VALUES in the input file and 
constructs a list of expressions, part of an insert node structure. 
Called by process, insert zero or one times, depending on absence or 
presence of VALUES clause. 

a 


FILE *input; 

struct insert. node. struct *insert. node; 
char *inbuff; 

int *inbuff ndx; 


( 
int buff ndx, 
end list FALSE, 
first expr 2 TRUE; 
char token[ MAX TOKEN + 1]; 
struct expr *next_expr, 
"cum expr; 


buff_ndx = *inbuff_ndx; 


while (!end list) 
( 
switch(inbuff[buff_ndx}) { 
case NEW_LINE: 
/* new line encountered in middle of expression list; get 
another line from input file and continue processing */ 
fgets(inbuff, MAX LINE,input); 


buff ndx 2 €; 
get next expr(inputinbuff,buff ndx,token,&buff ndx); 
break; 


case RIGHT. PAREN: 
/* end of expression list */ 
end list z TRUE; 
buff_ndx++; 
break; 
case COMMA: 
/* separate expressions, skip */ 
case TAB: 
case SPACE: 
/* white space, skip */ 
buff_ndx++; 
break; 
default: 
/* beginning of new expression */ 
get next expr(input,inbuff,buff ndx,token,&buff ndx); 
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next expr = (struct expr *) malloc (sizeof(struct expr)); 
next_expr->expression = malloc (strlen(token) + 1); 
strepy(next expr->expression,token); 
next expr->next = NULL; 
if (first expr) /* create new list */ 
( 
first expr = FALSE; 
insert node->expr list= next expr; 


else /* add to existing list */ 
curr expr->next = next expr; 
curr expr - next expr; 
] /* switch on inbuff[inbuff ndx] */ 


) 
*inbuff ndx - buff ndx; 
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convert exprs(output,insert node,num entries) 


le 
Checks to see if any input expression represents a call to an external 
function; if so, initiates execution of translation from ISQL to ESQL 
Called by process_insert for each INSERT statement 

e 


FILE "output; 
struct insert, node, struct "insert. node; 
int num entries; 


( 
struct expr *next_expr; 

char token[ MAX TOKEN + 1]; 

int 1, 
expr num = 0, 
expr_ndx, 
tab ndx; 

static int translate num = 1; 


next expr - insert. node-»expr list; 


/* perform for each expression in the list */ 
while (next expr = NULL) 
{ 
expr_ndx = 0; 


/* position at beginning of first token */ 
while (is delimiter(next expr->expression[expr ndx])) 
expr ndx++; 


get next token(next expr->expression,expr ndx,token,&expr ndx); 


/* check to see if token represents call to an external function */ 
if (is image function(token,num entries,&tab ndx)) 
( 
/* if it is a call to an external function, make the ISQL to 
ESQL translation */ 
wanslate function call(outputinsert node,next expr-»expression, 
expr ndx,&expr num,tab ndx,translate num); 


/* make sure that position of next, expr pointer is after any 
inserted expression */ 

next expr = insert node-»expr list; 

for (120; i<expr_num; i++) 
next expr - next expr-»next; 


translate num++; 
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expr num++; 


/* move on to next unprocessed incoming expression */ 
next expr = next expr->next; 
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translate function call(outputinsert node,expr,expr ndx,expr num,tab ndx,translate num) 


ie 
Translate an expression that represents an ESQL call to an external 
function to a series of equivalent ISQL statements that utilize 
corresponding internal functions. Called by convert exprs. 

7 


FILE *output; 
struct insert, node. struct *insert node; 
char *expr; 
int *expr num, 
expr ndx, 
tab ndx, 
translate num; 


( 
struct ISfunc. struct ISfunc; 
struct ISparam *next_ISparam; 
Struct param *next_in_param, 
*return, type; 
char "ptr, 
trans su[MAX TOKEN + 1], 
outbuff] MAX LINE + 1], 
fllename[MAX_TOKEN +1], 
descr MAX TOKEN + 1], 
param name[MAX TOKEN + I]; 
int I, 
first param = TRUE, 
outbuff_ndx; 


/* iniualize ISfunc structure with name and null pointer */ 

ISfunc.name = (char *) malloc (stlen(func_tab[tab_ndx]->ISfunc_name)+1); 
sucpy(ISfunc.name, func. tab[tab ndx]-»ISfunc name); 

ISfunc.param, list 2 NULL; 


next in param - func, tab[tab ndx]-»in, param, list; 
/* perform for each input parameter associated with internal function */ 
while (next in param != NULL) 
( 
while (is delimiter(expr[expr ndx])) 
expr ndx++; 


/* get next parameter from external function expression */ 
get next token(expr,expr ndx,param name,&expr ndx); 


if (first param) /* create new list of ISparams */ 
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( 
first_param = FALSE; 
ISfunc.param_list = (struct ISparam *) malloc (sizeof(struct ISparam)); 
next_ISparam = ISfunc.param_list; 

) 

else /* add to existing ISparam list */ 

( 
next_ISparam->next = (struct ISparam *) malloc (sizeof (struct ISparam)); 
next ISparam = next ISparam->next; 


| 


/* load data into ISparam structure */ 

next, ISparam-»name z (char *) malloc (strlen(param, name) 4 1); 
strcpy(next, ISparam-»name, param, name); 

next ISparam->next = NULL; 


/* if param is of type image, convert to filename and description 
name pair and change one parameter to 2 parameters */ 
if (stremp(next, in param-»param, type,"image") — 0) 
| 
/* convert to filename/description pair */ 
ISget_names(next_ISparam->name,filename,descr); 


/* substitute filename (_f) for incoming image name */ 
next_ISparam->name = (char *) malloc (strlen(filename) + 1); 
strcpy(next_ISparam->name, filename); 


/* create new ISparam struct and insert description (_d) param */ 
next, ISparam-»next = (struct ISparam *) malloc (sizeof(struct ISparam)); 
next ISparam = next ISparam-»next; 
next, ISparam-»name = (char *) malloc (strlen(filename) + 1); 
strcpy(next_ISparam->name,descn); 
next_ISparam->next = NULL; 

ee it */ 


next_in_param = next_in_param->next; 
) /* while */ 


/* output include statement for definitions */ 


fputs("#include \'defines.h\"n\n" output); 


/* output opening statement of declaration section */ 


fputs "EXEC SQL BEGIN DECLARE SECTION;W', output); 


clear buffer(outbuff); 
/* indent for declaration */ 
for (outbuff ndx=0; outbuff ndx « ADD INDENT; outbuff ndx++) 


outbuff[outbuff ndx] = SPACE; 


/* set up to add return type to list of ISparams */ 
return type - func tab[tab ndx]-»return type; 
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next_ISparam->next = (struct ISparam *) malloc (sizeof(struct ISparam)); 
next_ISparam = next_ISparam->next; 


/* if the return type is image, add two ISparams to list and modify 
corresponding item in column list */ 
if (stremp(retum_type->param_type,"image”) == 0) 
( 
/* wanslate corresponding column name to _f/_d pair */ 
translate_column_name(insert_node, *expr_num); 


/* all vanables created to hold filename are a concatenation of 
"ISfn" and the current translate_num to ensure a unique 
variable name */ 
clear_token(param_name); 
strcat(param_name,"ISfn"); 
sprintf(trans str,"%4d",translate num); 
fill space with zero(trans str); 
strcat(param, name,trans str); 
next ISparam->name = (char *) malloc (strlen (param, name) + 1); 
strepy (next ISparam->name,param name); 
/* replace the expression with the corresponding return variable name */ 
translate expr (insert node,*expr num,param name); 
/* output filename variable declaration */ 
put, next, token(return, type-»param, decl,outbuff,outbuff ndx,&outbuff ndx); 
put next token(next, ISparam-»name,outbuff,outbuff ndx,&outbuff ndx); 
put next token("[FILE NAME LENGTH + I]",outbuff,outbuff ndx,&outbuff ndx); 
outbufffoutbuff_ndx++] = SEMI_COLON; 
outbuff[outbuff ndx] 2 NEW LINE; 
fputs (outbuff,output); 


/* all varıables created to hold description are a concatenation of 
"ISdescr" and the current translate. num to ensure a unique 
variable name */ 

clear buffer(outbuff); 

/* indent for declaration */ 

for (outbuff_ndx=0; outbuff_ndx < ADD INDENT; outbuff ndx++) 

outbuff[outbuff ndx) 2 SPACE; 


next_ISparam->next = (struct ISparam *) malloc (sizeof(struct ISparam)); 
next_ISparam = next_ISparam->next; 


clear_token(param_name); 

strcat(param name,"ISdescr"); 
sprintf(trans str," %4d", translate num); 

fill space with zero(trans str); 

strcat(param name,trans str); 

next ISparam->name = (char *) malloc (strlen(param name) + 1); 
strepy (next ISparam->name,param name); 

/* insert descr param after filename param in expression list */ 
insert expr(insert node,expr num,param name); 

/* output description variable declaration */ 
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put next token(return type-»param decl,outbuff,outbuff ndx,&outbuff ndx); 
put. next, token(next, ISparam-»name,outbuff,outbuff ndx,&outbuff ndx); 
put. next, token MAX, DESCR + 1]" outbuff,outbuff_ndx,&outbuff_ndx); 
outbuff[outbuff ndx--—] SEMI. COLON; 
outbuff[outbuff ndx] NEW LINE; 
fputs (outbuff,output); 
) 
else /* return type not of type image */ 
( 
/* all variables created to hold other than filename or description 
are a concatenation of "ISvar” and the current translate_num to 
ensure a unique variable name */ 
clear token(param name); 
strcat(param, name,"ISvar"); 
sprintf(trans str,"964d",translate num); 
fill space with zero(trans str); 
strcat(param name,trans str); 
next ISparam->name = (char *) malloc (strlen (param name) + 1); 
strepy (next ISparam->name,param name); 
/* replace the expression with the corresponding variable name */ 
translate expr (insert node,*expr num,param name); 
/* output variable name declaration */ 
put next token(return type-»param decl,outbuff,outbuff ndx,&outbuff ndx); 
put next token(next ISparam->name,outbuff,outbuff ndx,&outbuff ndx); 
outbuffloutbuff_ndx++] = SEMI COLON; 
outbuff[outbuff ndx] 2 NEW LINE; 
fputs (outbuff,output); 


/* output closing statement of declaration section */ 
fputs "EXEC SQL END DECLARE SECTION;\n\n" output); 


clear. buffer(outbuff); 
fputs(outbuff output); 


/* output internal function call that replaces internal function call */ 


output ISfunc call(output,&ISfunc); 
fputs(outbuff,output); 
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translate, column, name(insert, node,expr. num) 


få 
Replaces column name occurring at position number expr. num in column, list 
of insert node with its f/ d pair. 

2 


struct insert_node_struct *insert_node; 
int expr_num; 


| » . 
int 1; 
struct column *curr. col, 
*new col; 
char filename[ MAX TOKEN + 1], 
descr[MAX TOKEN + 1]; 
curr. col 2 insert node-»col list; 


for (1=0; i<expr num; 1++) 
Curr col = curr_col->next; 
ISget_names(curr_col->column_name,filename,descr); 


curr_col->column_name = (char *) malloc (strlen(filename) + 1); 
strcpy(curr_col->column_name,filename); 


new_col = (struct column *) malloc (sizeof(struct column)); 
new_col->column_name = (char *) malloc (strlen(descr) + 1); 


strepy (new col->column name, descr); 


new col->next = curr col->next 
curr. col-»next z new. col; 
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translate_expr(insert_node,expr_num,param) 


Vb 


Replaces expression occurring at position number expr_num in expr_list 
of insert_node with param. Called by translate_function_call. 


å 
struct insert node. struct *insert node; 


int expr. num; 
char *param; 


( 


int 1; 
struct expr *curr_expr; 
curr_expr = insert_node->expr_list; 


for (1=0; i<expr num; l++) 
Curr_expr = curr_expr->next; 


curt_expr->expression = (char *) malloc (strlen(param) + 1); 


strepy(curr expr->expression,param); 


) 
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insert_expr(insert_node,expr_num,param) 


je 
Inserts param into expr list of insert node following expression 
occurring at position expr num. Called by translate function call. 
M 


struct insert. node struct *insert node; 
int *expr num; 
char *param; 


int i; 
struct expr *curr_expr, 
*nem expr, 


curr, expr 2 insert, node-»expr list; 


for (120; i«*expr. num; 12) 
Curr, expr 2 cuir. expr-»next; 


new expr - (struct expr *) malloc (sizeof(struct expr)); 
new expr-»expression z (char *) malloc (strlen(param) + 1); 


sucpy(new expr-»expression,param); 


new expr-»nexiz Curr, expr-»next; 
curr expr-»next 2 new expr; 


(*expr num)++; 
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output table name(insert node,indent,output) 


i 
Sends the first nonvariable part of the insert statement and the table 


name to the output file. 
E 


struct insert, node struct *insert node; 
int indent; 
FILE "output; 


{ 
int outbuff_ndx; 
char outbuff MAX LINE + 1]; 


clear. buffer(outbuff); 
for (outbuff ndx=0; outbuff ndx<indent; outbuff ndx++) 

outbuff[outbuff ndx] = SPACE; 
put next token("EXEC SQL INSERT INTO ",outbuff,outbuff ndx,&outbuff ndx); 
put next token(insert node->tablename,outbuff,outbuff ndx,&outbuff ndx); 
outbuff[outbuff. ndx] = NEW LINE; 
fputs(outbuff,output); 
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output columns(insert node, indent,output) 


pa 
Sends the formatted column list to the output file. 


dl 


struct insert node struct *insert node; 
int indent; 
FILE *output; 


{ 
int outbuff_ndx = 0; 
char outbuff[MAX_LINE + 1}; 
struct column *next_column; 


clear buffer(outbuff); 
for (outbuff ndx=0; outbuff ndx<indent+ADD INDENT; outbuff ndx++) 
outbuff[outbuff, ndx] = SPACE; 
outbuff[outbuff. ndx-4] - LEFT. PAREN; 
next column z insert. node-»col list; 
while (next column != NULL) 
( 
put next token(next column->column name,outbuff,outbuff ndx,&outbuff ndx); 
put_next_token(", ",outbuff,outbuff_ndx,& outbuff_ndx); 
next_column = next_column->next; 
) 
outbuff_ndx = outbuff_ndx - 2; 
outbuffloutbuff_ndx++] = RIGHT_PAREN; 
outbuffloutbuff_ndx++] = NEW LINE; 
fputs (outbuff,output); 
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output, exprs(insert node,indent,output) 


lag 


Sends the formatted expression list to the output file. 
“i 


struct insert_node_struct *insert_node; 
int indent; 
FILE *output; 


{ 
int outbuff_ndx = 0; 
char outbuff[MAX_LINE + 1]; 
struct expr *next_expr; 


clear_buffer(outbuff); 

for (outbuff_ndx=0; outbuff_ndx<indent+ADD_INDENT; outbuff_ndx++) 
outbuffloutbuff_ndx] = SPACE; 

put next token("VALUES ",outbuff,outbuff_ndx,& outbuff_ndx); 

outbuff[outbuff_ndx++] = LEFT. PAREN; 

next expr - insert node-»expr list; 

while (next expr != NULL) 


outbuffloutbuff_ndx++] = COLON; 
put next token(next expr->expression,outbuff,outbuff ndx,&outbuff ndx); 
put next token(”, ”,outbuff,outbuff ndx,&outbuff ndx); 
next expr= next expr->next; 
) 
outbuff ndx = outbuff ndx - 2; 
outbuff[outbuff ndx44] RIGHT. PAREN; 
outbuff[outbuff ndx«-4] 2 SEMI. COLON; 
outbuff[outbuff ndx++]= NEW LINE; 
fputs (outbuff,output); 
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APPENDIX F 


SAMPLE INPUT FILE 


#include <stdio.h> 

#include <sys/types.h> 
#include <pixrect/pixrect_hs.h> 
Hinclude "defines.h" 


main() 
( 
struct pixrect *pr; 
colormap t cm; 
FILE input: 
char *input, filename 2 "tesumage.1"; 


EXEC SOUINCEUDE SOUCA: 


EXEC SQL BEGIN DECLARE SECTION: 
int id; 
EXEC SQL END DECLARE SECTION; 


if (input = fopen (input filename,"r')) == NULL) 
( 
printf ("Cannot open file %s\n", input_filename); 
exit (1); 


| 


if ((pr 2 pr. load (input, &cm)) == NULL) 
| 
printf ("cannot load pixrect from file %s\n", input, filename); 
fclose (input); 
exit (I): 


| 


fclose (input); 
EXEC SOL CONNECT ‘imaceab : 


printf ("Please enter the id number for the new phow: "); 
scanf ("Zed”,£1d); 
while (getcharQ != NEW LINE) 


, 


EXEC SQL INSERT INTO image 
(i 1d, i image) 
VALUES (:id, IMAGE FROM PIXRECT(pr, &cm)); 


| 


EXEC SQL DISCONNECT; 


Do 


APPENDIX G 
SAMPLE OUTPUT FILE 


#include <stdio.h> 

#include <sys/types.h> 
#include <pixrect/pixrect_hs.h> 
Hinclude "defines.h" 


main() 
( 
struct pixrect *pr; 
colormap t cm; 
FILE “input; 
char *input_filename = "testimage.1"; 


EXEC SOL INCLUDE SOLCA; 


EXEC SQL BEGIN DECLARE SECTION; 
int 1d; 
EXEC SQL END DECLARE SECTION; 


if ((input = fopen (input filename,"r')) == NULL) 
[ 
printf ("Cannot open file %s\n", input_filename); 
exit (1); 


| 


if ((pr 2 pr. load (input, &cm)) 22 NULL) 
| 
printf ("cannot load pixrect from file %s\n", input_filename); 
fclose (input); 
exit (1); 


) 
fclose (input); 
EXEC SQL CONNECT "imagedb"; 
printf ("Please enter the id number for the new photo: "); 
scanf ("9cd" ,&id); 
while (getcharQ != NEW LINE) 


y 


| 


Hinclude "defines.h" 


EXEC SQL BEGIN DECLARE SECTION; 
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char ISfnO0001 [FILE NAME LENGTH + 1]; 
char ISdescrO001[MAX DESCR + I]; 
EXEC SQL END DECLARE SECTION; 


ISimage from pixrect(pr,&cm,ISfn0001,IS descr0001); 
EXEC SQL INSERT INTO image 
(i id, i image f,1 image. d) 


VALUES (:id, :ISfn0001, :ISdescr0001); 


EXEC SQL DISCONNECT; 
) 
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APPENDIX H 


UTILITY SOFTWARE 


ye Me me ak aye dde ms ae ae e d ON Mc c Oc ON Oc e e e e d e d OC D c ae NNN nr dc c e e e c c c c c c c GC c C c Oc OCC */ 


#include <ctype.h> 
#include <stdio.h> 
Hinclude "defines.h" 
Hinclude "errors.h" 
#include "structures.h" 


IS Me a máx d cc e CC e e des de 02 2 202 2 2 2 2 2 2 2 02 02 02 02 2 2 2 2 02 2 c C GC c c e 2 2 2 2 2 2 2 2 02 2 02 02 2 2 02 02 2 02 02 2 2 02 02 2 2702 2 2020270200 " 
clear buffer(buffer) 
> 
Fills the buffer with TERMINAL’s 00). 
rh 
char *buffer; 


| 


int 1; 


for (1=0; i<MAX_LINE+1; i++) 
buffer[i] = TERMINAL; 
| 
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clear_token(token) 


"bd 
Fills the token with TERMINAL's (ND). 
rj 


char *token; 


( 


int 1; 


for (i=0; ¡<MAX_TOKEN+1; 14+) 
token[i] = TERMINAL; 
) 
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= A a ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak akc abc ake akc ake k k k */ 
fill_ space_with_zero(str) 
ie 
Fills blanks in the str with zeros. 
=, 


char *str; 


| 


char *ptr; 
for (ptr=str; *ptr; ptr++) 


if (*ptr = SPACE) 
*ptr 2 '05 
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get_next_token(inbuff,buff_ndx,token,new_ndx) 


F 
Takes the line sent to it and removes the token starting at buff ndx. 
Returns inbuff unchanged, but new_ndx contains the new position within 
the line for the next operation. 


på 


char inbuff[ MAX LINE + 1], 
token[ MAX TOKEN + 1]; 
int buff. ndx, 
*new ndx; 


( 


int token_ndx = 0; 


/* Skips intervening white space. */ 
while ((inbuff[buff ndx] == SPACE) I 
(inbuff[buff ndx] == TAB)) 
buff ndx++; 


/* Reads characters into the token until a blank or a new line 
character is encountered. */ 
while (!is_delimiter(token[token_ndx] = inbuff[buff_ndx])) 
[ 
buff ndx++; 
token ndx++; 
) 
/* Place the terminating null character at the end of the token. */ 
token[token ndx] 2 TERMINAL; 
*new ndx - buff ndx; 
) 


29 


je 3k 3k 3k Hee k k ak HH He ak a e ak ae ae Ae e a e a e ak ake al a ake a a ap af ar af ar af ar ac ac okc ac okc ac ac ac oc oc ac aic oc kc oc kc oc aic oc oic oc oic occ oc oc Oc Xe Xe X a 


get next expr(input,inbuff,buff ndx,token,new ndx) 


Å 
Takes the line sent to it and removes the token starting at buff ndx. 
Returns inbuff unchanged, but new. ndx contains the new position within 
the line for the next operauon. 


el 


FILE *input; 
char inbuff[MAX LINE + I], 
token[ MAX TOKEN + 1]; 
int buff ndx, 
*new ndx; 


| 
int end expr = FALSE, 
nüm left parens = 0, 
token_ndx = 0; 


/* Skips intervening white space. */ 
while ((inbuff[buff ndx] == SPACE) II 
(inbuff[buff ndx] == TAB)) 
buff ndx++; 


/* Reads characters into the token untl a delimiter is encountered. */ 
while (lend expr) 
( 


switch(inbuff[buff_ndx]}) { 
case RIGHT_PAREN: 
if ("num left. parens) 
end expr = TRUE; 
else 
num left parens--; 
break; 
case LEFT PAREN: 
num left parens++; 
break; 
case NEW LINE: 
case TERMINAL: 
fgets (inbuff, MAX LINE, input); 
buff ndx=0; 
break; 
case COMMA: 
if (Inum left parens) 
end expr= TRUE; 
break; 
case COLON: 
case TAB: 
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case SPACE: 
buff_ndx++; 
break; 

default: 


, 


if ('end expr) 
( 
token[token_ndx] = inbuff[buff_ndx]; 
buff_ndx++; 
token ndx++; 


) 


/* Place the terminating null character at the end of the token. */ 
token[token ndx] 2 TERMINAL; 
*new ndx - buff ndx; 
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get_operation_type(operation) 


y* 
Evalutes operation token and returns numeric equivalent. 


E 
char *operation; 


( 

if (stremp(operation,"ABORT”) == 0) 
retum ABORT_OP; 

else if (stremp(operation,"BEGIN") == 0) 
return BEGIN OP: 

else if (stremp(operation,"CLOSE") = 0) 
return CLOSE OP; 

else if (srcmp(operauon," COPY") == 0) 
return COPY OP; 

else if (strcemp(operation," CONNECT") 2z 0) 
return CONNECT OP; 

else if (stremp(operation, CREATE") == 0) 
return CREATE OP; 

else if (srcmp(operation, DECLARE") 22 0) 
retum DECLARE. OP; 

else if (sremploperation," DELETE”) == 0) 
return DELETE OP; 

else if (stremp(operation,"DISCONNECT") == 0) 
return DISCONNECT OP; 

else if (srcmp(operation, DROP") == 0) 
return DROP OP; 

else if (srcmp(operation," END") == 0) 
return END OP; 

else if (strcemp(operation,"FETCH") == 0) 
retum FETCH OP; 

else if (srcmp(operation, HELD") 22 0) 
retum HELD. OP; 

else if (srcmp(operation," INCLUDE") == 0) 
return INCLUDE OP; 

else if (srcmp(operauon," INSERT") 2 0) 
return INSERT OP; 

else if (strecmp(operation, MODIFY") == 0) 
retum MODIFY OP; 

else if (srcmp(operation," OPEN") 2 0) 
retum OPEN OP; 

else if (sremp(operation," PRINT") == 0) 
return PRINT. OP; 

else if (stremp(operation, "RELOCATE") = 0) 
retum RELOCATE_OP; 

else if (strecmp(operation," SAVE") == 0) 
return SAVE OP; 
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else if (sremp(operation, SAVEPOINT") == 0) 
return SAVEPOINT OP; 

else if (stremp(operation," SELECT") == 0) 
return SELECT. OP; 

else if (srcmp(operauon," SET") zz 0) 
return SET. OP; 

else if (sremp(operation, UPDATE”) == 0) 
return UPDATE OP; 

else if (srcmp(operation, WHENEVER") 2 0) 
return WHENEVER, OP; 

else 
return NULL; 
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get, token type(token) 


hi 
Evalutes parsed token and returns numeric equivalent. 
= 


char token[ MAX TOKEN + 1]; 


| 


int 1; 


if (stremp(token," VALUES") == 0) 
return VALUES. CLAUSE; 
else if (srcmp(token," SELECT") — 0) 
retum SUBQUERY; 
else 
retum INSERT_ERR; 
) 
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ISget names(image. attribute,filename, attribute,descr. attribute) 


/* 
Convert IMAGE name to filename (_f) and descripuon (_d) pair. 
*/ 


char *image_attribute, /* input */ 
*filename_attribute, /* output */ 
*descr_attribute; /* output */ 


( 


int 1; 


for (i=0; isMAX TOKEN; i++) 
filename_attribute[i] = descr_attribute[1] = TERMINAL; 


for (i=0; ((image_attribute[i] != TERMINAL) && ((<MAX SQL NAME)); i++) 
filename attribute[1] 2 descr. attribute[i] 2 image. attribute[i]; 

filename attribute[i] 2 descr. attribute[(i] 2 UNDERSCORE; 

filename attribute[1-1] 2 ’f; 

descr. attribute[i4-1] 2 'd'; 


) 
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is delimiter(ch) 


F 
Determines if the character submitted 1s a delimiter or not. 
Returns TRUE or FALSE. 

ki 


char ch; 


( 
switch(ch) 
{ 

case SPACE 

case TAB : 

case NEW_LINE 

case LEFT_PAREN : 

case RIGHT_PAREN : 

case COMMA 

case SEMI COLON : 

case COLON 
return TRUE; 
break; 

default : 
return FALSE; 


106 


y Ae A a a a ie e a ade e a al a al a al a a al al e c I c e c alie OK KK e al a a ad a a a ad a ale e De oie de a ad e OK ix De TET ETE TETTE EEE e 
is_image_function(token,num_entries,tab_ndx) 


/* 


Searches function table to determine if token represents a call 
to an external IMAGE function. Retums TRUE or FALSE. 
*/ 


char *token; 
int num_entries, 
*tab ndx; 


{ 
int found = FALSE; 


*tab_ndx = 0; 
while ((‘found) && (*tab_ndx < num entries)) 
if (strcmp(token,func_tab[*tab_ndx]->func_name) == 0) 
found = TRUE; 
else 
(*tab_ndx)++; 
return found; 


| 
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output ISfunc call(output,ISfunc) 


/* 
Outputs formatted internal function call. 
= 


FILE *output; 
struct ISfunc_struct *ISfunc; 


char outbuff[MAX_LINE + 1); 
int outbuff ndx = 0; 
struct ISparam *next, param; 


clear buffer(outbuff); 


put next token(ISfunc->name,outbuff,outbuff ndx,&outbuff ndx); 
outbuffloutbuff_ndx++] = LEFT. PAREN; 


next param = ISfunc->param list; 
while (next param !z NULL) 
( 
put. next, token (next, param-»name,outbuff,outbuff ndx,&outbuff ndx); 
outbuff[outbuff_ndx++] = COMMA; 
next_param = next_param->next; 


) 


outbuff[outbuff ndx-1] RIGHT. PAREN; 
outbuffloutbuff_ndx++] = SEMI_COLON; 
outbuffloutbuff_ndx++] = NEW LINE; 
outbuffloutbuff_ndx] = NEW_LINE; 

fputs (outbuff,output); 
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put. next, token(token,outbuff,buff ndx,new ndx) 


n" 
Writes a token to the output buffer starting at buff. ndx, and returns the 
new position within the output buffer in new_ndx. 


*/ 


char *token, 
*outbuff; 
int buff ndx, 
*new ndx; 


| 


int token ndx; 
token. ndx - O; 


/* Writes each character in the token to the output buffer until the 
terminating null is encountered. */ 
while (token[token ndx] ' TERMINAL) 


outbuff[buff ndx] = token[token_ndx]; 
buff ndx++; 
token ndx++; 


) 
*new ndx - buff ndx; 


) 
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to upper case(token) 


ye 
Converts any lowercase characters in token to uppercase. 


2 
char token[ MAX TOKEN + 1]; 


| 


int token_ndx; 


token_ndx = 0; 
while (tokenftoken ndx] != TERMINAL) 
( 
if (islower(token[token ndx])) 
token[token_ndx} = toupper(token[token_ndx)); 
token ndx++; 
) 
) 
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APPENDIX I 


ERROR CODES 


#define FOPEN_ERR 300 

#define PR_DUMP_ERR 301 

#define PR_LOAD_ERR 302 

#define PR LOAD_HEADER_ERR 303 
#define PR LOAD COLORMAP ERR 304 
sdefine MEM. CREATE ERR 305 
tdefine PR. REGION ERR 306 

define PR DUMP HEADER ERR 307 
tdefine PR DUMP IMAGE ERR 308 
#define FWRITE ERR 309 

tHdefine FREAD ERR 310 

Hdefine MALLOC ERR 311 


sidefine NO. COLORMAP ERR 200 

#define NO. WIDTH ERR 201 

#define NO. HEIGHT ERR 202 

sidefine NO. DEPTH ERR 203 

sdefine INVALID ENCODING ERR 204 

sdefine INVALID RASTER, TYPE ERR 205 
4&define INVALID MAP TYPE ERR 206 

Hdefine IMAGE FROM PIXRECT ERR 207 
tidefine FUNC TAB ERR 208 

sidefine PARAM ERR 209 

8define INSERT. ERR 210 

sidefine DESCR. TOO LONG ERR 211 

sdefine NO COLORMAP ENTRY SIZE ERR 212 
sidefine MAPLENGTH IN BYTE WARNING 213 
sidefine INVALID WINDOW PARAMS 214 
#define NO WINDOW OVERLAP 215 

#define WINDOW WRONG. DEPTH. ERR 216 


tidefine ERROR FREE 0 
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